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INTRODUCTION 



This book contains tests/exercises for two different courses, 
Programming RSX-llM in MACRO and Programming RSX-llM in FORTRAN . 
Most of the questions apply to both courses. If a question begins 
with "In MACRO" or "In FORTRAN", that question applies only to the 
specified course. Solutions are provided for all tests/exercises. 
Where it is appropriate, separate solutions are provided for MACRO 
and FORTRAN. Solutions which involve programs should also be 
available on-line. 

Check the Student Guide in the Student Workbook for your 
course for information on how to use the tests/exercises. 



Using System Services 



TEST/EXERCISE 



1. Match the function with the type of system service used to 
perform it. 



Function 

The tasks send data 
back and forth to 
each other 

The tasks read data 
from a file on disk 

The tasks get input 
from an operator 
at a terminal 



Type of System Service 

1. System and task information 

2. Task control 

3. Task communication/coordin- 
ation 

4. I/O to peripheral devices 

5. File and record access 

6. Memory use 



2. Draw a figure to illustrate a method of providing a system 
service through the Executive. 
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Using System Services 
TEST/EXERCISE 

3. What is the other method for providing a system service? 

4. Identify two system libraries you might use in writing 
programs that use system services. 
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Using System Services 
SOLUTION 

Match the function with the type of system service used to 
perform it. 



Function 

3 a. The tasks send data 

back and forth to 
each other 

5 b. The tasks read data 
from a file on disk 

4 c. The tasks get input 

from an operator 
at a terminal 



Type of System Service 

1. System and task information 

2. Task control 

3. Task communication/coordin- 
ation 

4. I/O to peripheral devices 

5. File and record access 

6. Memory use 



Draw a figure to illustrate a method of providing a system 
service through the Executive. 



See Figure 1-1 or 1-2 



Using System Services 



SOLUTION 



3. What is the other method for providing a system service? 
Insert the code into your task. 

4. Identify two system libraries you might use in writing 
programs that use system services. 

Any two of the following: 

SYSLIB.OLB 
RSXMAC.SML 
RMSMAC.MLB 
RMSLIB.OLB 
FOROTS.OLB 
F4P0TS.0LB 

Also acceptable: 

FCSREF.TSK 
FORRES. TSK 
F4PRES.TSK 
RMSSEQ.TSK 
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Directives 



TEST/EXERCISE 



1. In MACRO-11 

a. Modify the task READF to use the $C form of the Read Event 
Flags directive. 

b. Modify the task READF to use the $S form of the Read Event 
Flags directive. 



2. In FORTRAN, modify the task READF to set all of the odd 
numbered flags from 1 to 15(10). 

3. Modify WFLAG and SFLAG to use a global event flag instead of a 
group global event flag. Omit any unnecessary code in the 
tasks. Check with your instructor to find out which event 
flag to use. 

4. Write a task which does some work and periodically checks a 
group global event flag. Have it display a message and exit 
when the flag has been set. Write another task, or modify 
SFLAG to set the flag. 

5. Add a requested exit AST routine to WFLAG. 

6. In MACRO-11, add an odd address trap SST routine to the task 
SST. Include an instruction which causes the trap to occur. 
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Directives 



SOLUTION 



1. a 1 

2 

3 
4 

5 
6 
7 
8 
9 
10 

:l. 1 
.1.2 
.13 
.14 

15 
16 

.1. 7 
18 
19 

20 

21 
o :> 

23 
24 
25 
26 
2 7 
28 
29 
30 
31 
32 
33 
34 

35 
36 
37 

38 
39 
40 
41 
42 
43 

44 

45 
46 
47 

48 
49 

50 



♦ TITLE Fv'EADF 
. I DENT 701/ 
♦ENABL LC 

y File LEX21A»MAC 



y Enable lower case 



y Modified to use the *C form of the Read All Event yJEX 

y Fla.<-{s directive 

y 

y This tssk starts upy sets event flais ly reads the 

i event flasJsy moves them into re<3isters R0-R3 and then 

y exits* It uses the * form of the directive calls* 

y 

y The flasJs are returned as follows* 
y 

y word =~ event fla^s 1-16 

y word 1 ~ event flasSs 17-32 

y word 2 ~ event fla^s 33-48 

y word 3 ~ event f lasis 49-64 



♦ MCALL RDAF$CySETF$yEXIT*SyriIR$ y System macros 

y y E.X 



BUFF? 



setf: 



start: 



*BL.KW 



SETF$ 



CLR 

riIR$ 

BCS 

RDAF$C 

BCS 
MOV 
MOV 
MOM 
MOM 
lOT 



R4 

tSETF 

ERRl 

BUFF 

ERR2 

BUFFyRO 

BUFF+2yRl 

BUFF+4yR2 

BUFF+6yR3 



y Come here on directive errors 



ERR2 : 
ERRl : 



INC 
INC 

MOV 
lOT 

* END 



R4 
R4 

*DSWyR0 



START 



y Buffer for event flaiS 
y values 

y DPB for Set Event Fla*S 
y directive 

y Clear error counter 

y Set event fla.^ 1 

y Branch on dir error 

y Read the event flasisyyEX 

y ( 1 - 64) ♦ 

y Branch on dir error 

y Move the event fla^ 
y values into the 
y resfisters 

5 Trap and display 
y registers 



R4~2 for read error 
R4=l for set event 

flaiS error 
Error code into RO 
Trap and display the 

ressisters 
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Directives 



SOLUTION 



l.b 



3 
4 

6 
7 
8 
9 
10 
11 
:12 
IZ 
.1.4 

:15 
3.6 
17 
18 
19 

20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 

35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 



♦TITLE 
* I DENT 



READF 

/Ol/ 

LC 



9 Enable lower C3se 



y File LEX21B,MAC 



? Modified to use $S form of the Resd All Event Flails JJEX 

y directive 

y 

y This task starts upy sets event flasi ly reads the 

y event flajiJsy moves them into registers R0 -R3 and then 

y e;d. ts» It uses the % form of the directive calls* 

y 

y The flaifis are returned as follows J 

y 

y word event fla^s 1-16 

y word 1 event flails 17-32 

y word .2 ~ event flails 33-48 

y word 3 ~ event fl353s 49-64 



BUFF J 



SETFt 



start: 



♦ MCALI 

♦ BLKW 

SETF$ 



CLR 

DIR$ 

BCS 

RDAF^S 

BCS 
MOV 
MOV 
MOV 
MOV 
lOT 



RDAF$SySETF*yEXIT*SyDIR* ? System macros 

? yEX 

Buffer for event fla^ 
values 



R4 

#SETF 

ERRl 

#BUFF 

ERR2 

BUFFyRO 

BUFF+2yRl 

BUFF+4yR2 

BUFF+6yR3 



y Come here on directive errors 
ERR2I INC R4 
ERRi: INC R4 



MOV 
lOT 

♦ END 



iDSWyRO 



START 



DPB for Set 
di recti ve 



Event Fla*3 



Clear error counter 
Set event flaa 1 
Branch on dir error 
Read the event flads 
(1-64)* yyEX 

Branch on dir error 
Move the event flad 

values into the 

registers 

Trap and displaw 
registers 



R4~2 for read error 
R4~l for set event 
flass error 

Error code into RO 
Trap and display the 
re.^isters 
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Directives 



SOLUTION 



2. 



6 
7 
8 
9 
10 

12 

13 
14 
15 
16 
17 
18 
19 
20 
21 
2 2 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 

35 
36 
37 

38 
39 
40 
41 
42 
43 
44 



READF, FIN 
File LEX22J-TN 

Modified for exercises* Set odd riumbered fls^s* ! ! EX 

This task sets event fl3£3 1 and then reads 
flas-Js 1 to 16 and displays them 



•EX 
!EX 
!EX 



C 
C 
C 
C 
C 
C 
C 
C 
C 

I NTEGER'>K2 1 E VF ( 1 6 ) y I DSW 
C Set odd event fla^s* 

no 5 K=--=l » 15).2 

CALL SETEF (K^IDSW) 
C Branch on directive error 

IF (IDSW ♦LT» 0) GOTO 1000 
5 CONTINUE 

C Read the event fla^s into the array ievf* Note 



! !EX 



that in FORTANy we can onlw read 1 fla*s at a time 

no 20 1 = 1 1-16 

CALL REAnEF (IxinSW) 
Branch on directive error 

IF (inSW ♦LT* 0) GOTO 1100 
Check IDSW valuey 2 means sety 
Set the ievf value accordinsJly 



means clear 
(1 means sety 



C means clear) 

IF (IDSW ♦EQ* 2) GOTO 10 

IEyF<I)==-IDSW 

GOTO 20 
10 IEVF<I)==1 
20 CONTINUE 

C Write out fla^ settings y startinis with flad 16 ♦ 

WRITE (5y30) 
30 FORMAT <' EVENT FLAGS 16* TO 1» ARE?') 

WRITE (5y40) (lEyF(J)y J-16yly-l) 
40 FORMAT <' 'yl6I2) 

CALL EXIT 
C Come here on directive errors 

1000 WRITE (5 y 1010) IDSW 

1010 FORMAT <' ERROR SETTING FLAG* ERROR CODE 

CALL EXIT 
1100 WRITE (SylllO) IDSW 

1110 FORMAT <' ERROR READING FLAG* ERROR CODE ■■ 
CALL EXIT 
END 



yI5) 



' yI5) 
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Directives 



SOLUTION 



3. 



6 
7 
8 
9 
.1.0 
.11 
12 
13 
14 
15 
16 
17 
18 
19 

20 



23 
24 
25 

26 
27 
28 

29 
30 
31 

32 
33 
34 
35 
3(S 
37 

38 
39 
40 

41 
42 
43 
44 
45 
46 
47 
48 
49 
50 



♦TITLE WFLAG 
♦I DENT 701/ 

♦ ENABL. I...C V Enable lower esse 

? F.TLE LEX23A»MAC 

f Modified to u«>e sslobsl event flas 35* i 



EX 



y This pro*=lr3iri creates the i^roup Global event flasl<^y 

f clears event fla*^ 65* and waits for it to be set* When 

y the flsd is set it writes a message and exits* 

r 

f Assemble and task -build instruct ions t 

y 

y - .>MACRO/LIST/OBJECTt WFLAG LBJ Tl r LlPROGMACS/LIBR-f ?EX 

y ->ARY!pdev: Cuf d3LEX23A 

y ;>LINK/MAF' WFLAGyLB:i:i yl3PR0GSUBS/LIBRARY 

y 

y I I 'l s t a 1 1 a n d R u n i n s t r u c t i o n s * 

? 

? Run WFLAG y then run SFLAG* At least one of the 

y tasks must be installed? or else the RUN command 

y will try to install both tasks under the same 

y namey TTnn* 



start: CLR 

TYPE 



♦MCALL EXIT$SyWTSE$CyCLEF$CyCRGF*C y System 
♦MCALL TYPE 
RO 



y macros 
y Supplied macro 



y RO used to identify 
y the error 

XLEAR AND THEN WAIT FOR EF 35* TO BE SET> 

? 5 EX 

CLEF$C 35* y Clear event fla^ 35*yyEX 

ERR2 y Branch on directive 

y error 

y Wait for event f lad 35 
y to be set r yEX 

ERR3 y Branch on directive 

y error 

<EF 35* HAS BEEN SET* WFLAG WILL NOW EXIT.> 

y y EX 



BCS 
WTSE*C 35 

BCS 
TYPE 



ERR3J 
ERR2: 



EXIT$S 
INC 

INC 

MOV 
lOT 
* END 



RO 
RO 

*DSWyRl 
START 



y RO ~ 3 if error on 

y wait for dir 

y RO = 2 if error on 

y clear fla^ dir 

y Place DSW in Rl 

y Trap and dump resJisters 
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Directives 



SOLUTION 



1 PROGRAM WFLAG 

2 C 

3 C FILE LEX23A*FTN 

4 C 

5 C Modified to use event flasJ 35(10) M EX 

6 C 

7 C This task creates the droup ^alobal event fla^sr and 

8 C then clears event fla.«3 65* and waits for it to be set* 

9 C When the flad is set? it writes a iTiessa<ae and exits 

10 C 

11 C Install and run instructions* 

12 C 

13 C Run WFLAGy then run SFLAG* At least one of the 

14 C tasks must be installed? or else the RUN conriiiiand 

15 C will trw to install both tasks under the same 

16 C name (TTnn) 

17 C 

18 WRITE (5.20) 

19 20 FORMAT (' CLEAR AND WAIT FOR EF 35* TO BE SET')!!EX 

20 CALL CLREF (35yIDSW) M EX 

21 IF (IDSW *L1. 0) GOTO 1100 

22 CALL WAITER (35.IDSW) ! ! EX 

23 IF (IDSW ♦LT* 0) GOTO 1200 

24 WRITE (5.30) 

25 30 FORMAT (' EF 35* HAS BEEN SET* FWAIT WILL NOW EXIT') 

26 C !!EX 

27 CALL EXIT 

28 C Error process in.*.^ 

29 C 

30 1100 WRITE (5.1110) IDSW 

31 1110 FORMAT (' DIRECTIVE ERROR CLEARING EVENT FLAG 35. 

32 1 DSW = ' f 15) ! !EX 

33 CALL EXIT 

34 1200 WRITE (5.1210) IDSW 

35 1210 FORMAT (' DIRECTIVE ERROR WAITING FOR EVENT FLAG 

36 1 35* DSW === '.15) 

37 CALL EXIT 

38 END 

1 .TITLE SFLAG 

2 . I DENT /Ol/ 

3 .ENABL LC r Enable lower case 

4 J + 

5 i FILE LEX23B.MAC 

6 ? 

7 f Modified to use event flad 35. ??EX 

8 i 

9 r This task sets event flaS 65* It assumes that the 

10 t firoup Global event flails have already been created* 

11 J 

12 f Assemble and task-build instructions* 

13 f 

14 ? MACRO/LIST LB : C 1 . 1 3PR0GMACS/LIBRARY . dev : Cuf d.1SFLAG 

15 ? LINK/MAP SFLAG. LB tCl.l^PROGSUBS/LIBRARY 
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Directives 



SOLUTION 



16 ? 

17 9 .rnstcjll and Run notes J 



18 y 

19 y First run WFLAGy then run SFLAG* At least one of 

20 y the tasks must he installedy or else the RUN 

21 y command will try to install both tasks under 

22 y the same name? TTnn* 

23 y 

24 y- 

25 ♦MCALL EXlT$SyS£TF*C J System macros 

26 ♦MCALL TYPE ? Supplied macros 

27 y 

28 start: TYF'E <EF 35* IS BEING SET* THEN SFLAG WILL EXIT*.:- 

29 JyEX 

30 SETF$C 35* y Set event flasJ 35* y yEX 

31 BCS ERR y Branch on dir error 

32 EXIT$S ? Exit 

33 ERRt MOV $DSWyRl y Save DSW 

34 lOT y Trap and dump reslisters 

35 ♦END START 



1 PROGRAM SFLAG 

2 C 

3 C FILE LEX23B*FTN 

4 C 

5 C Modified to use event fla^ 35* ! ! EX 

6 C 

7 C This task sets event fla^ 65* It assumes that the 

8 C £{roup Global event fla^s have already been created* 

9 C 

10 C Install and run instructions* 

11 C 

12 C Run WFLAGy then run SFLAG* At least one of the 

13 C tasks must be installedy or else the RUN command 

14 C will try to install both tasks under the same 

15 C name (TTnn) ♦ 

16 C 

17 WRITE (5yl0) 

18 10 FORMAT (' EF 35* IS BEING SET* THEN SFLAG WILL EXIT') 

19 C ! ! EX 

20 CALL SETEF ( 35 y I DSW) ! ! EX 

21 C The DSW value returned for SETEF is 2 if it was set 

22 C and if it was clear* A 1 is NOT returned for success 

23 IF (IDSW *LT* 0) GOTO 1000 

24 CALL EXIT 

25 C Error code 

26 1000 WRITE (5yl010) 

27 1010 FORMAT (' DIRECTIVE ERROR SETTING EF 35* DSW ' 

28 lyI4) ! lEX 

29 CALL EXIT 

30 END 
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Directives 



SOLUTION 



4. 



3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 



♦TITLE LEX24 
. I DENT 701/ 
♦ENABL LC 



f Enable lower case 



r FILE LEX24*MAC 



i This FTO^raiTi creates the ^roup Global event fla^s? 

? clears event fl B<-i 65 *r does some work and periodically 

y cehcks event fla<:-i 65* When the fla.«{ is set it writes a 

i iriessa.de and exits* 

r 

r Assemble and task-build instruct ions J 
? 

? MACRO/LI ST/OBJECT t WFLAG LB I CI y 1 11 PRGGM ACS/LIB- ? ? EX 

r RAR Y f de V : C uf d 1 LEX24 J ? EX 

f LINK/HAP WFLAG y LB : C 1 y 1 aPROGSUBS/LIBRARY 

? 

y Install and Run instruct ions { 

y 

y Run WF"LAGy then run SFLAG* At least one of the 

? tasks must be installedy or else the RUN command 

y will try to install both tasks under the same 

y namey TTnn* 

y 

♦MCALL EXIT*SyWTSE*CyCLEF$CyCRGF$C y System 

y macros 

♦MCALL TYPE y Supplied macro 



START 



CLR 



TYPE 
CR6F$C 

BCC 



CMP 
BNE 



RO 

<LEX24 I! 
OK 



ERRl 



ok: 



y RO used to identify 
y the error 
CREATING THE GROUP GLOBAL EVENT FLAGS> 
y Create droup srlobal 
y event flails 
y Branch on directive ok 
If tiroup iSlobal event flads already existy 
Just display message and continue 

$i:iSWy#IE»RSU y Check for efs alresid^:} 
V in existence 
y Branch on any other 
y dir error 
GLOBAL EVENT FLAGS ALREADY EXIST> 
EF 65* WORK UNTIL IT IS SET> 

y Clear event fla*^ 65* 



TYPE 
TYPE 
CLEF$C 
DCS 



<6RaUP 
<CLEAR 
65* 
ERR2 



y Branch on directive 

y error 

AGAIN* CLR Rl y Clear counter yJEX 

y Loop 2**16 timesy then check fla^ yJEX 

LOOP* INC Rl y Increment counter yJEX 

BNE LOOP y Not yet cycled? loopy JEX 

y ada in y rEX 
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Directives 



SOLUTION 



51 
52 
53 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 



ERR3: 

ERR2 : 
ERR. I : 



TYPE 
CLEF*C 
BCS 
CMP 

BNE 
TYPE 
EXIT*S 
INC 



INC 
INC 

lOT 
♦ END 



HAS 



<COUNTER 
65 * 
ERR3 

*DSW»#IS»SET 



AGAIN 

<EF 65 



RO 



RO 
RO 

*DSWyRl 
START 



CYCLEDx- * Display iriess3<3e J ? EX 
? Use Clear to read flasiiiyEX 
? Branch on dir error? J EX 
y IS*SET means flasi wasrfEX 
? set y y EX 

y Noy loop asJain yyEX 
5, HAS BEEN SET* LEX24 WILL NOW EXIT> 



RO •■= 3 if error on yJEX 

Clear Fla.^ dir while 

wai t insf 
RO - 2 if error on 

clear flaa dir 
RO - 1 if error on 

create .^roup fla<3s dir 
Place DSW in Rl 
Trap and dump re5.{isters 



1 PROGRAM LEX24 

2 C 

3 C FILE LEX24J-TN 

4 c: 

5 C This task creators the s^roup s^lohal event flasisy and 

6 C then clears event flasf 65* and does some work while 

7 C waitin'iJ for it to be set* When the flsii is sety it 

8 C writes a messai^e and exits 

9 C 

10 C Install and run instructions* 

11. C 

1.2 C Run LEX24y then run SFLAG* At least one of the 

13 C tasks must be installedy or else the RUN command 

14 C will trw to install both tasks under the same 

15 C name (TTnn) 

1 6 C 
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Directives 



SOLUTION 

17 WRITE (5yl0) 

18 10 FORMAT (' LEX24 IS CREATING THE GROUP GLOBAL EVENT FLAGS') 

19 C ! !EX 

20 CALL CRGF ( y IDSW) 

21 IF (IDSW *LT* 0) GOTO 900 

22 15 WRITE (5 1-20) 

23 20 FORHAT (' CLEAR EE 65 ♦ WORK UNTIL IT IS SET') 

24 CALL CLREF (65yIDSW) 

25 IF (IDSW ^LT* 0) GOTO 1100 

26 22 DO 25 K:=:ly65535 ! ! EX 

27 25 CONTINUE ! ! EX 

28 WRITE <5y28) ! !EX 

29 28 FORMAT (' COUNTER HAS CYCLED') HEX 

30 CALL READEF ( 65 y IDSW) ! ! EX 

31 IF (IDSW »LT» 0) GOTO 1200 ! ! EX 

32 IF (IDSW ♦NE* 2) GOTO 22 ! ! EX 

33 WRITE (5y30) 

34 30 FORMAT (' EF 65* HAS BEEN SET* LEX24 WILL NOW EXIT') 

35 CALL EXIT 

36 C Error process insi 

37 C 

38 C Check for code of ••••17? meanind fl&sis already exist 

39 900 IF (IDSW ♦NE* -17) GOTO 1000 

40 C I n t h 3 1 c^ a s e y J u s t d :i. s 1 a y a m e s s a s$ e a n d c o n t i n u e ♦ 

41 WRITE (5y910) 

42 910 FORMAT (' GROUP GLOBAL EVENT FLAGS ALREADY EXIST') 

43 GOTO 15 

44 C Here for fatal errorsy display messas^e and exit 

45 1000 WRITE (5yl010) IDSW 

46 1010 FORMAT (' DIRECTIVE ERROR CREATING GROUP GLOBAL 

47 lEF' 'S* DSW ' y 15) 

48 CALL EXIT 

49 1100 WRITE (SylllO) IDSW 

50 1110 FORMAT (' DIRECTIVE ERROR CLEARING EVENT FLAG 65* 

51 1 DSW :::: ' y 15) 

52 CALL EXIT 

53 1200 WRITE (5yl210) IDSW 

54 1210 FORMAT (' DIRECTIVE ERROR READING EVENT FLAG 

55 1 65* DSW ' y 15) ! ! EX 

56 CALL EXIT 

57 END 



15 



Directives 



SOLUTION 



5. 



4 

5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 

27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 



♦TITLE UFLAG 
♦IDENT /Ol/ 

♦ENABL LC ? Enable lower case 

FILE LEX25»MAC 

Modified to include 3 Reauested E;;it AST f yEX 

This program cre<3tes the sSrouF' islobsl event fladsy 
clears event fla^ 65 ♦ and waits for it to be set* When 
the flaS is set it writes a messasle and exits* 

Assemble and task-build instructions* 

MACRO/LIST/OBJECT : WFLAG LB : C 1 y 1 3FR0GMACS/L IB- ? ? EX 
RARYfdev:Cufd3LEX25 ??EX 
LI NK/MAP WFLAG > LB : C 1 » 1 3PR0GSUBS/L IBR AR Y 

Install and Run instructions J 

Run WFLAG r then run SFLAG* At least one of the 
tasks must be installed^ or else the RUN command 
will try to install both tasks under the same 
namey TTnn* 

♦MCALL EXIT*SyWTSE*C»CLEF$CyCRGF$C ? System 



♦MCALL SREA*CyASTX$S 
♦MCALL TYPE 



y macros 
y System Macros JyEX 
y Supplied macro 



start: CLR 



RO 



y RO used to identify 
y the error 
y Set UP Renuested Exit 
? AST yyEX 
y Branch on dir error 
<WFLAG IS CREATING THE GROUP GLOBAL EVENT FLAGS!: 
y Create si roup sJlobal 
y event fla^s 
OK y Branch on directive ok 

y If ^roup Global event fla^s already existy 
y Just display messaiSe and continue 

CMP *DSWy*IE»RSU y Check for efs already 

y in existence 
ERRl y Branch on any other 

y dir error 
<GROUP GLOBAL EVENT FLAGS ALREADY EXIST.:- 
<CLEAR AND THEN WAIT FOR EF 65. TO BE SET> 
y Clear event fla^ 65* 
y Branch on directive 
y error 



ok: 



SREA*C REXAST 

BCS ERRO 
TYPE 
CRGF*C 

BCC 



BNE 

TYPE 
TYPE 

CLEF $C 65 ♦ 

BCS err: 
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51 
52 
53 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 



WTSE*C 

BCS 

TYPE 
EXIT$S 
f AST Service 

rexast: type 



65* r Wait for event flB^ 65 

? to be set 
ERR3 f Branch on directive 

r error 

<EF 65, HAS BEEN SET, WFLAG WILL NOW EXIT.': 



routine 
<WHY HE? 



ERR3 : 
ERR2 i 
ERRl J 
ERRO : 



ASTX$S 
INC 

INC 

INC 

MOV 



lOT 
♦ END 



RO 
RO 
RO 

$DSWyRl 
START 



frEX 

NOT THIS TIMEM> ? Type messssie 

? ?EX 

f AST exit to return JrEX 

9 RO ~ 3 if error on 

9 W3it for dir 

9 RO ~ 2 if error on 

9 clear fla^ dir 

9 RO = 1 if error on 

9 create droup flads dir 

9 Place nSW in Rli' leave 

9 R0~0 for specify ?JEX 

9 re«uested exit AST err 

9 Trap and dump resJisters 



1 PROGRAM WF-LAG 

2 C 

3 C FILE LEX25,FTN 

4 C 

5 C Modified to include a Reauested Exit AST ! ! EX 

6 C 

7 C This task creates the ^roup <3lobal event flasisy and 

8 C then clears event flasJ 65 ♦ and waits for it to be set* 

9 C When the flasf is set? it writes a message and exits 

10 C 

11 C Install and run instructions* 



12 C 

13 C Run WFLAG J- then run SFLAG* At least one of the 

14 C tasks must be installed^ or else the RUN command 

15 C will try to install both tasks under the same 

16 C name (TTnn) 

1 7 C 

18 EXTERNAL REXAST MEX 

19 C Set UP Reauested Exit AST MEX 

20 CALL SREA ( REXAST x IDSW ) ! ! EX 

21 IF <IDSW ^LT, 0) GOTO 950 MEX 

22 WRITE (5yl0) 

23 10 FORMAT (' WFLAG IS CREATING THE GROUP GLOBAL EVENT FLAGS') 

24 CALL CRGF ( » IDSW) 

25 IF (IDSW ♦LT, 0) GOTO 900 

26 15 WRITE (5r20) 

27 20 FORMAT (' CLEAR AND WAIT FOR EF 65 ♦ TO BE SET') 

28 CALL CLREF < 65 y IDSW) 

29 IF (IDSW .LT* 0) GOTO 1100 

30 CALL WAITER ( 65 y IDSW) 

31 IF (IDSW ♦LT. 0) GOTO 1200 

32 WRITE (5y30) 
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33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 



30 



C Error 
C 

C Check 
900 



FORMAT (' EF 65* HAS BEEN SET* FWAIT WILL NOW EXIT') 

CALL EXIT 

processin£{ 



for code of ~ 
IF (IDSW ♦NE* 
C In that casey Just 

WRITE (5f910) 
910 FORMAT (' GROUP 

GOTO 15 

C Here for fatal errors? display 
950 WRITE (5»960) IDSW 

960 FORMAT (' DIRECTIVE 

1 DSW = '»I5) 

CALL EXIT 

WRITE (5^1010) IDSW 
FORMAT < ' DIRECTIVE 
1EF"S» DSW = ' » 15) 
CALL EXIT 

WRITE (5^1110) IDSW 
FORMAT ( ' DIRECTIVE 
1 DSW = 'rI5) 
CALL EXIT 

WRITE (5^1210) IDSW 
FORMAT (' DIRECTIVE 
1 65 ♦ DSW ==== '9 15) 
CALL EXIT 
END 



17j' meaning flajss already eMist 

-17) GOTO 1000 
dislay a message and continue* 

GLOBAL EVENT FLAGS ALREADY EXIST') 

message and 



ERROR SETTING UP 



exit 

! !EX 
AST ROUTINE* 
• !EX 
! !EX 



1000 
1010 



1100 
1110 



1200 
1210 



AST 



SUBROUTINE REXAST 
service routine 



ME! 



INTEGER PLIST(6) rIOWVB 

REAL TEXTK6) rTEXT2<7) 

DATA lOWVB/" 11000/ 

DATA TEXTl /'TRYI'f'NG 

I'ORT 'r'ME '»'EH? '/ 

DATA TEXT2 /'WE W' . 'ON 

1' YOU'»' THI'f'S Tl'y 
C Set UP for QIO directive 

CALL GETADR(PLIST < 1 ) r TEXTl ( 1 ) ) 

PL I ST (2) = 23 

PLIST<3) = "40 
C Use QIO directive to display text 

CALL WTai0<I0WVB>5rl» f ^PLIST) 
C Set UP for 2nd line of text 

CALL GETADR<PLIST(1) yTEXT2<l) ) 

PLIST<2> = 27 
C Use QIO directive to display text 

CALL WTQI0<I0WVBr5f 1 » r rPLIST) 

RETURN 

END 



ERROR CREATING GROUP GLOBAL 



ERROR CLEARING EVENT FLAG 65 



ERROR WAITING FOR EVENT FLAG 



EX 
EX 
EX 
EX 
EX 
EX 
EX 
EX 

'0 AB' y ! !EX 

EX 

' LET' r ! !EX 

'/ !!EX 
EX 
EX 
EX 
EX 
EX 
EX 
EX 
EX 
EX 
EX 
EX 
EX 
EX 
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6. 



♦TITLE SST 
♦I DENT 701/ 
♦ENABL LC 



f Enable lower case 



6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 

23 
24 
25 

26 
27 
28 
29 
30 
31 
32 
33 
34 

35 
36 
37 
38 
39 



? FILE LEX26»MAC 



y Modified to include an odd address trap 



EX 



y This task sets up an SST vector table to handle SST's 

y for BPTy lOTy and odd address traps* It then executes 

y instructions to cause these traps to occur* In each 

y SST routiney a message is displayed and then the task 

y continues* Finally? a TRAP instruction is executed* 

y Since no user SST routine is specified for TRAPy the 

y Executive aborts the task* 

y 

V Assemble and task-build instructions* 

? MACRO/LIST LBJi:iyllPR0GMACS/LIBRARYydev:Cufd3LEX26 

y LINK/MAP LEX26yLB:i:i ylJPROGSUBS/LIBRARY 



♦MCALL 
*MCALL 

Ctable: *word 



SVTKifrCyEXIT$S y External 
TYPE y External 



system macros 
supplied macro 



ODDTRPyMPTMIOyBPTy lOT y SST vector 



start: svtk*c './table y 4 

BPT 

TST 1 



new: 



clr 



lOT 

EXIT$S 
TRAP 



120000 



table 
y y EX 

Have Executive set up 
SST table 
BPT instruction 
Test location li 

causing an odd 

addr trap 
Clear location 120000: 

causin*^ a memory 

protect violation 
lOT instruction 
Exit 

TRAP instruction 



yEX 
yEX 
yEX 
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40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 

53 
54 
55 
56 

57 
58 



? SST routines 
5 

fJDDTRp: TYPE 
RTI 

MPTVIO: TYPE 

CMP 
TST 

RTI 

bpt: type 

RTI 

iot: type 

MOV 



RTI 
♦ END 



<ODD ADDRESS TRAP CAUGHT:5 



<MEMORY PROTECT 

(SP)-f » (SP)f 
<SP) + 



<BPT CAUGHT> 

<IOT CAUGHT> 
#NEUy <SP) 



START 



Type r fEX 
r message r »EX 
f Return from trap yPEX 
VIOLATION CAUGHT.:- ? Type 
9 iTiess3£fe 
f Clean off three 
y specific stack words 
V for memory protect SST 
? Return from trap 
f Type message 
f Return from trap 

r Type message 

? Chanjie PC on stack so 

y return from trap 

? returns to NEW 

r Return from trap 
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Using the QIO Directive 



TEST/EXERCISE 



1. Modify SYNCHQ or ASYNCQ to write prompting text (e.g., "TYPE 
SOME TEXT: ") before issuing the read. 

2. In MACRO-11, modify NUMER, replacing the error handling code 
with code which writes out an error message plus the 
appropriate status code. Refer to SYNQER for sample error 
messages. 

3. Modify NOECHO to use one QIO directive to both write the- 
prompt and read the input. Also, have the read timeout if no 
key is struck for 20(10) seconds, in which case, display a 
timeout message and exit. 

4. Write a task which prints a message on every terminal in the 
system. The task should break through any pending I/O at the 
terminal. (Note: This task must be task-built as a 
privileged task, using the /PRIVILEGED : qualifier in the 
task-build command; /PR:0 in MCR) 
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1. 



1 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 

23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 



♦TITLE SYNCHQ 
.IliENT /Ol/ 
♦ENABL LC 



? Enable lower case 



FILE LEX31»MAC 



Modified to display pronriptin.^ text 



f rEX 



This task reads a line of text from the terminals 
converts all upper case characters to lowe»r casey and 
prints the converted message hack at the terminal* It 
uses synchronous QIO directives* 



iosb: 
buff: 

PRMPT : 
LF-'RMPT 



start: 



loop: 



♦ MCAL 



a I OU*C f QI OW$S y EX I T$S 



External system 
macros 



♦ BLKW 

♦ BLKB 
♦ASCII 
=♦ -PRMPT 

♦ EVEN 

CLR 
CLR 



2 y I/O Status Block 

80 ♦ y Text buffer 

/TYPE SOME text: / J Prompt 

y Length of prompt 



J ?EX 
y y EX 
y yEX 



R5 
R4 



QIOW$C 

BCS 

TSTB 

BLT 

QIOW*C 

BCS 
TSTB 
BLT 
MOV 

CLR 

CMPB 



BLT 

CMPB 

BGT 

y Here if upper 
MOVB 
ADD 
MOVB 



y Error Count 

y Error indicator - 

y means directive error 
y (DSW in R3)y nesl 

y means I/O error 
y (I/O status in RZ) 

I0*WVBy5yly ylOSBy y <PRMPT y LPRMPT y 40> 

y Display prompt yfEX 

ERR3 y Branch on dir erroryyEX 

IOSB y Check for I/O erroryyEX 

ERR3A y Branch on I/O erroryyEX 

I0*RVBy5y 1 y y lOSBy y<BUFFy80»> y Issue 

y read 

y Branch on dir error 

y Check for I/O error 

y Branch on I/O error 

y Get count of characters 

y typed in 

y Offset into buffer to 

y character 

y Check for upper case 

y ASCII character 

y Branch if below ran<ie 



ERRl 
IOSB 
ERRl A 
I0SB+2yR0 

Rl 

BUFF(Rl) y#'A 



NEXT 
BUFF(Rl) y*'Z 
NEXT 

casey move to 
BUFF(Rl) yR2 
#32* yR2 
R2yBUFF<Rl) 



y Branch if above ran^e 
register R2 and convert 
y Move to register 
y Convert to lower case 
y Replace in messa:ae 
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52 


next: 


INC 


Rl 


r 


Iricrement offset into 


'53 








f 


buffer to next char 


54 




SOB 


ROrLOOP 


r 


Decrement count of 


55 








f 


chsrejcters left to check 


56 




QIOW$S 


♦I0.WVB>*5>#lf 


y #IOSB f f <#BUFF y IOSB+2 y *40> 


57 








y 


Write text 


58 




BCS 


ERR2 


y 


Branch on dir error 


59 




TSTB 


lOSB 


y 


Check for I/O error 


60 




BLT 


ERR2A 


y 


Branch on I/O error 


61 




EXIT*S 




y 




62 


r 










63 


r Error 


code 








64 


} 










65 


ERR3A : 


INC 


R5 




R5=3 means Prompt QIO 


66 










error y y EX 


67 


ERR2A J 


INC 


R5 




Up error count - 2nd QIO 


68 


ERRIAJ 


INC 


R5 




- 1st QIO 


69 




MOVB 


I0SByR3 




I/O error* I/O status 


70 










to R3» 


71 




BEC 


R4 




Negative value in R4 


72 










means I/O error 


73 




lOT 






Trap and display 


74 










rei^isters 


75 


ERR3: 


INC 


R5 




R5=3 means Prompt QIO 


76 










error y y EX 


77 


ERR2 : 


INC 


R5 




Up error count ~ 2nd QIO 


78 


ERRi: 


INC 


R5 




~ 1st QIO 


79 




MOM 


*DSW»R3 




Directive error* DSW 


80 










to R3y leave R4=:0* 


81 




lOT 






Trap and display 


82 










registers 


83 




♦END START 
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PROGRAM ASYNCQ 
l-ILE LEX31.FTN 

Modified to display FTomptin^ text HEX 

This program resds a line of text from the tenninal » 
converts any upper case characters to lower case and 
prints the converted message back at the terminal* 
It uses asynchronous QIOs and an event f la^ for 
synchronization* 

BYTE I0SB(4) ^IBUF<80) 
DIMENSION IPAR(6) yK(lO) 
EQUIVALENCE ( NUM y lOSB ( 3 ) ) 

REAL PRMPT<4) M EX 

DATA PRMPT /'TYPE'r' SOM'y'E TE'»'XT: V ! ! EX 



DATA lOUVB/" 11000/ 
DATA I0RVB/"10400x' 
DATA IVFC/MO/ 
Set UP values for the QIO 
IUNIT-5 

Set UP for QIO to issue prompt ! ! EX 

CALL GETADRdPARd) yPRMPTd)) ! ! EX 

IPAR(2) = 16 ! ! EX 

IPAR(3)=="40 ! !EX 

Issue asynchronous write M EX 
CALL QI0(iaUVByIUNIT»5y »IOSB»IPARyinS) ! ! EX 

IF (IDS *LT* 0) GOTO 780 ! ! EX 

CALL WAITFR<5yIDS) ! ! EX 

IF (IDS *LT* 0) GOTO 785 !!EX 

IF (lOSB(l) ♦LT* 0) GOTO 790 M EX 

Set UP for read ! ! EX 

IPAR(3)==0 ! !EX 



IPAR(2)=80 
Get the address of the I/O buffer 

CALL GETADR(IPAR(l)yIBUF(l)) 
Issue the QIO 

CALL QIOdORMBylUNITySy yIOSB»IPARyIDS) 
Check the directive status 

IF ( IDS J-T* 0) GO TO 800 
Do some work while I/O operation is beings performed 

DO 50 1=1 ylO 

Kd)--=64*I 
CONTINUE 

Wait for I/O to complete 

CALL WAITFR(5y IDS) 

Check directive status 

IF (IDS ♦LT* 0) GO TO 805 
Check the I/O status 

IF dOSBd) *LT* 0) GO TO 810 
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52 
53 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
y> 

73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 



C Convert to lowercase 
DO 100 I-"=1»NUM 

IF (IBUFd) ♦LT, 'A') GO TO 100 
IF (IBUFd) ♦GT* •132) GO TO 100 
IBUF(I)=:IBUF(I)+32 
100 CONTINUE 

C Set UP I/O Parameter List for write 

IPAR(2)=NUM 

IPAR<3)=igFC 
C Write the converted line to the terminal 

CALL QIOdOWMBdUNITySr ylOSBdPARflDS) 
C Check directive status 

IF (IDS ^LT* 0) GO TO 820 
C Wait for the I/O to complete 

CALL WAITFR<5rIDS) 
C Check directive status 

IF (IDS J-.T* 0) GO TO 825 
C Check the I/O status 

IF (lOSB(l) ♦LT. 0) GO TO 830 

GO TO 850 
780 WRI TE ( 5 y 880 ) I DS 

GO TO 850 
785 WRITE( 5^885) IDS 

GO TO 850 
790 WRITE(5y890)I0SB(l) 

GO TO 850 



! EX 
!EX 
!EX 
! EX 
!EX 
!EX 



800 


WRITE (5^900) IDS 
GO TO 850 






805 


WRITE (5 y 
GO TO 85 


905) IDS 







810 


WRITE (5 y 


910)I0SB(1) 








GO TO 850 






820 


WRITE(5y 
GO TO 85 


920) IDS 







825 


WRITE (5r 


925) IDS 








GO TO 850 






830 


WRITE (5y 


930)I0SB(1) 






850 


CALL EXIT 






880 


FORMAT ( ' 


D I REC T I VE ERROR ON 


WRITE OF PROMPT » ! 


!EX 




1 CODE = 


'yI4) 




!EX 


885 


FORMAT( 'DIRECTIVE ERROR ON 


WAIT FOR WRITE OF ! 


•EX 




1 PROMPT f 


CODE = 'yI4) 




! EX 


890 


FORMAT ( ' 
1 'rI4) 


I/O ERROR ON WRITE 


OF PROMPT f CODE =! 


!EX 
!EX 


900 


FORMAT ( ' 


DIRECTIVE ERROR ON 


READy CODE =■= 'rI4) 




905 


FORMAT ( ' 


DIRECTIVE ERROR ON 


1ST WAITr CODE == ' 


y 14) 


910 


FORMAT ( ' 


I/O ERROR ON READr 


CODE == '5-14) 




920 


FORMAT ( ' 


DIRECTIVE ERROR ON 


WRITE? CODE 'yI4) 


925 


FORMAT ( ' 


DIRECTIVE ERROR ON 


2ND WAITr CODE = ' 


rI4) 


930 


FORMAT (' 
END 


I/O ERROR ON WRITE 


, CODE == 'd4) 





26 



Using the QIO Directive 



SOLUTION 



2. 



6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 



♦TITLE NUMER 
♦I DENT 701/ 
♦ENABL LC 



f Enable lower case 



FILE LEX32»MAC 



Modified to include error message code 



f ?EX 



This task does a simple addition and outputs the 
results* It demonstrates the use of *EDMSG for 
formatting messa«3es with numeric data 



r Data 

a: 



c: 



out: 



iosb: 



♦HCALL 
♦MCALL 
♦NLIST 



♦ WORD 

♦ WORD 

♦ BLKW 

QIOU* 

♦ BLKW 



QIOW*»EXIT$SyDIR$ 
QI0W4S 

BEX ? 



9 System macros 
f System macros ?yEX 
Do not list binary 
extensions 



10 r 1st addend and start 

r of argument block 

22 r 2nd addend 

1 r Location for sum 

I0*WVB»5»1» ylOSBr »<BUFf )'40> JQIO for 
y output message 

2 f I/O status block 



Set UP for *EDMSG 



f 
f 

buf: 

FMES: 
r Set 

arg: 
fmtid: 

FMTIII 



♦ BLKB 
.ASCIZ 

UP for error 

♦ EVEN 

♦ BLKW 
♦ ASCIZ 
♦ASCIZ 

♦ EVEN 



80* f Output buffer 

/%D» WAS ADDED TO %D»» GIVING %D*/ 
y Format strind 
messages usind *EDMSG JJEX 

; ?EX 

1 r Argument block? ?EX 

/DIRECTIVE ERROR ON WRITEx DSW == %D/ ?JEX 
'I/O ERROR ON WRITEr I/O STATUS XD'rJEX 

r ?EX 



♦LIST BEX 
♦ EVEN 

start: MOV AyC 

ADD B y C 

y Set UP for call to $EDMSG 

MOV *BUFyR0 

MOV *FMESyRl 

MOV #AyR2 

CALL *EDMSG 



r List binary extensions 

y Move to word boundary 

y Move 1st addend to sum 
y word 

y Add 2nd addend to form 
r sum 

y Addr of output buffer 

y Addr of format string 

y Addr of argument block 

y Make cally character 

y count returned in Rl 
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51 
52 
53 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 



MOV 



DIR$ 
BGS 
TSTB 
BLT 

EXIT*S 



Rly0UT+0»I0PL+2 ? 



? E'rror code 



ERRli: MOU 



MOV 



BR 



♦OUT 
ERR ID 
lOSB 
ERR 1 1 



#FMT11»R1 

lOSBrRO 
ROrARG 



EDAWT 



#FMTlDyRl 



ERRID: MOV 

MOV ♦*DSWyARG 
r Finish settin.^ up for $EDMSG 
EDAWT J MOV #BUFyRO 

MOV #ARGyR2 

CALL *EDMSG 

QIOW*S #I0»WVBy#5y#l y r y 

EXIT$S 
♦END START 



Place # of characters 
to write into lOPL 
in QIO DPB 
Write output message 
Branch on dir error 
Check for I/O error 
Branch on I/O error 



Format strins^ for ? yEX 
1st I/O error messai^e 

Extend si ^n on I/O ?rEX 
status byte by movinslP JEX 
it through RO to the 5 JEX 
argument block ? ?EX 

Branch to common edit??EX 
and write code JyEX 

Format strinsf for IstyyEX 
directive error yJEX 

Move DSW to arsi block? yEX 

V y EX 

OutF'ut buffer address? yEX 
Argument block address? yEX 
Edit outF'Ut strings yyEX 
::*BUFyRly*40> ? Write? ?EX 

out messa.<^e ??EX 
Exit ??EX 
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6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 



♦TITLE NOECHO 
♦I DENT 701/ 

♦ ENABL LC y Enables lower case 

FILE LEX33* MAC 

Modified to combine QIOs and include timeout ??EX 

This tssk writes 3 prompt and then issues 3 QIO to resd 
from the terminal without echo* It then displays the 
word which was entered* 

Assemble and task-build instructions t 

MACRO/LIST LB tTAfl .IPROGMACS/LIBRAFtY f dev : Cuic3LEX33 
LINK/MAP LEX33fPR0GSUBS/LIBRARY 

♦MCALL EXIT$SyQIOW*CyQIOW*S ? System macros 
♦MCALL niRERRylOERR 5 Supplied macros 



y Data 
f 

♦NLIST BEX y Don't list of binsry 

y eK tens ions 
♦ASCII /SECRET WORD? / y Prompt messe^e 
= f-MES y Length of prompt 

♦ASCII <15>/N0 LONGER A SECRET WORD: / 

y Precedinsi rem3rk 
:= ♦-BUFF y Length of Remark 

♦BLKB 80* y Input buffer 

♦ ASCII /READ TIMED OUT/ y Timeout messa.?ie yyEX 
^♦-TMOMS yyEX 
♦EUEN y Word ali^n for lOSB 

♦WORD y lOSB is broken into 

♦WORD y two parts for 

y convenience ♦ 
y Define functions locally to allow us of an assignment 
y statement to shorten directive statement 
10 ♦RPR =004400 y Define functions 

=20 y 
=200 ? 
lO^FNC "-=<I0^RPR!TF,RNE!TF^TM0> y QIO function code 

♦LIST BEX y List binary eKtensions 



MES: 
LEN 

buff: 

BLEN 

buf: 

TMOMS: 
LTMOMS 

iosb: 
lent: 



TF ♦ RNE 
TF^TMO 



y Code 

y 

START : 



aiOW$C lO^FNCySyly y IOSB y y <BUF y 80 ♦ y 2 y MES y LEN y 44> 

y Issue read after yyEX 
y P rompt y y EX 

BCS DERRl y Branch on dir error 
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Using the QIO Directive 



SOLUTION 



5.1 
52 
53 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 



DIR40KI 



NOTIMO: 



TSTB 
BLT 
CMPB 
BNE 

a.TOW*C 
BCC 



JMP 

TSTB 

BLT 

EXIT$S 

MOV 

ADD 

QIOU*S 

BCS 

TSTB 

BLT 

EXIT$S 



lOSB 
lERRl 

IOSB^#IS»TMO 
NOTIMO 

I0»W<^Br5yl» »IOSB 
DIR40K 



DERR4 

lOSB 

IERR4 

LENTrRO 
♦BLENi-RO 



DERR3 

lOSB 

IERR3 



Check for 
Branch on 
Check for 
Branch if 



I/O error 
I/O error 
timeout rJEX 
no timeout ? f EX 



<TMOMS > LTMOMS f 40> r ? EX 
Branch on dir ok - ??EX 
need thisj* too far ??EX 
for branch 
Jump on dir error HEX 
Check for I/O error JJEX 
Branch on I/O error ?5EX 
Exi t f r EX 

Get length of input ?fEX 
Add lenisth of remark 
#I0,WVBy#5y*l f ftlOSBr f <#BUFFrR0r#40> 

Write out text 
Branch on dir error 
Check for I/O error 
Branch on I/O error 
Exit 



f Errors come here 



lERRi: lOERR 



IERR3^ 
IERR4: 
DERRl : 

DERR3 : 
DERR4 : 



lOERR 
lOERR 
DIRERR 

DIRERR 
DIRERR 
♦ END 



#IOSBr<Error on 
#IOSB»<Error on 



READ AFTER PROMPT> ??EX 
f Display message and 
2nd WRITE> ? exit 
#IOSB!»<Error writing timeout mess3<3e>r ?EX 
<Error in QIO on READ AFTER PROMPT> ??EX 

9 Display dir message and 
<Error in QIO on 2nd WRITE> ? exit 
<Error writing timeout message.-- ?5EX 
START 
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Using the QIO Directive 



SOLUTION 



1 




PROGRAM NOECHO 




2 
3 


C 
C 


File LEX33»FTN 




4 


C 






5 


C 


Modified to use read after prompt and to timeout !! E:X 


6 


C 






7 


C 


This task prompts for input y reads it without echo and 


8 


C 


then skips to the next line and displa^j 


s the input 


9 


C 


text and exits* 




10 


c 






11 




BYTE BUFF(80) »I0SB(4) »CR(1) 




12 




INTEGER PARM(6) 




lo 




REAL PROMPT (4) ! 


Prompt ! !EX 


14 


c 






15 




DATA lOFNC /-4620/ ! 


QIO MEX 


16 


c 


! 


function ! ! EX 


17 


c 


I 


code ! ! EX 


18 




DATA ISTMO 72/ ! 


Timeout ! ! EX 


19 


c 


! 


status ! ! EX 


20 




DATA CR /"15/ ! 


Carriage return charact 


21 




DATA PROMPT /'SECR'y'ET W'y'ORDJ'y' V 


22 


c 


! 


Text ! ! EX 


23 


c 


Set UP the I/O parameter list 




24 




CALL GETADR < FARM ( 1 ) y BUFF ( 1 ) ) ! 


buffer address 


25 




FARM (2) = 80 ! 


Buffer length 


26 




PARM<3) = 2 ! 


Timeout === 2 ! ! EX 


27 


c 


! 


* 10 sec ! !EX 


28 




CALL GETADR < FARM < 4 ) y PROMPT < 1 ) ) ! 


Prompt addr ! ! EX 






PARM(5) =13 ! 


Prompt lenssthMEX 


30 




FARM (6) "44 ! 


Vertical MEX 


31 


c 


! 


format contr.MEX 


32 


c 


Issue read no echoy read after prompt y 


with timeout MEX 


33 




CALL WTQIO (lOFNCySyly ylOSByPARMy 


IDS) 


34 




IF (IDS ♦LT* 0) GO TO 100 ! 


Dir error? 


35 




IF <I0SB(1) a-T* 0) GO TO 110 ! 


I/O error? 


36 


c 


Check for timeout 




37 




IF (lOSBd) *H£* ISTMO) GOTO 1 ! 


Branch if no ! ! EX 


38 


c 


! 


timeout ! ! EX 


39 




TYPE *y'READ TIMED OUT' ! 


Display M EX 


40 


c 


! 


messasJe ! ! EX 


41 




CALL EXIT ! 


and exit ! ! EX 


42 


1 


WRITE (5y2) CRy (BUFFd) yI = lyI0SB(3) ) ! Echo input 


43 


2 


FORMAT (' 'yAly'NO LONGER A SECRET WORD: 'yOOAD 


44 




CALL EXIT- 




45 


c 






46 


c 


Error conditions 




47 


c 






48 


100 TYPE 'DIRECTIVE ERROR ON READ* 


STATUS 'yIDS 


49 




CALL EXIT 




50 


110 TYPE *!- 'I/O ERROR ON REAtU CODE 


= 'ylOSB(l) 


51 




CALL EXIT 




52 




END 
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Using the QIO Directive 



SOLUTION 



4. 1 ♦title: LEX34 

2 ♦IDENT /Ol/ 

3 ♦ENABL LC i Enable lower case 

4 ?f 

5 i FILE LEX34,MAC 

6 ? 

7 ? Solution to Module 3r Lab Exercise 4 

8 r 

9 r Task does a write breakthrough to all terminals* 

10 r 

11 f Assemble and task-build insructions* 

12 f 

13 ? >MACRO/LIST LBJ CI y IDPROGMACS/LIBRARY^devJ Cuf d.!- 



14 




->LEX34 








15 




>LINK/MAP/PRIVILEGED:0 LEX34yLB: i:lyl.^PROGSUBS/- 


16 


f 


~>LIBRARY 






17 












18 




♦ MCALL 


ALUN*yQIOW*yDIR* 


y 


EXIT*S 


19 




♦MCALL 


DIRERRylOERR 








Rl IFF ♦ 


♦ASCII 


/HELLO THERE/ 






21 




LEN =:= ♦ 


-BUFF 






'^2 




♦ EVEN 








23 


lOSBJ 


♦ BLKW 


p 


y 


I/O status block for QIO 


24 


alun: 


ALUN* 




y 


DPB to assign to TTO*y 


25 








y 


will modify for others 


26 
27 
28 


Qio: 


QIOW* 


10 ♦ WLB ! TF ♦ WBT ! TF ♦ RCU y 4 y 1 y y lOSB y y <BUFF y LEN y 40 


r 


♦ENABLE 


LSB 






29 


start: 


HOKf 


♦ALUNyRO 


y 


RO ==> DPB for ALUN* 


30 




hOKf 


#aiOyRl 


y 


Rl ••=> DPB for QIOW* 


31 


BRO: 


DIR* 


RO 


y 


AssisJn LUN 


32 




BCS 


ALFAIL 


y 


If ALUN* failed 


33 




DIR$ 


Rl 


y 


Type messa*Se at TTn* 


34 




BCC 


1$ 


y 


If I/O was Queued OK 


35 




DIRERR 


<ERROR ON QIOW*> 






36 


1*: 


CMPB 


#IS^SUCyIOSB 


y 


Did I/O succeed? 


37 




BEQ 


2$ 


y 


Yes 


38 




lOERR 


*IOSBy<ERROR ON 


QIOW$> 


39 


2$: 


INC 


A^LUNU(RO) 


y 


Next terminal 


40 
42 


y 

y Error 


BR 

from AL 


BRO 
UN 






43 


alfail: 


CMP 


#IE^IDUy*DSW 


y 


Did it fail because of 


44 








y 


illegal unit ♦? 


45 




BNE 


3* 


y 


Noy some other error 


46 




EXIT*S 




y 


Yes^ Must have passed 


47 








y 


the last terminal 


48 


3$: 


DIRERR 


<ERROR ON ALUN$> 


y 


Other error 


49 




♦ END 


START 
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Using the QIO Directive 
SOLUTION 



1 PROGRAM LEX34 

2 Cf 

3 C FILE LEX34»FTN 

4 C 

5 C Solution to Module 3y Lab Exercise 4 

6 C 

7 C Task does 3 write breakthrough to all terminals* 

8 C 

9 C Task-build with /PRIVILEGED JO Qualifier 



10 C- 

11 INTEGER TTUNITyDSW 

12 DATA TTUNIT/0/ ! First output to TTO: 

13 INTEGER PARAM ( 6 ) » lOSB ( 2 ) 

14 BYTE SUCC0D(2) ! I/D success codes 

15 EQUIVALENCE (SUCCODr lOSB) ! First bwtes of lOSB 

16 INTEGER lEIDU ! Mneinonic for "Illegal 

17 DATA IEIDU/-99/ ! Device or Unit" DSW code 

18 INTEGER lOFCOD ! I/O function code 

19 C ! iTineirionic 

20 DATA I0FC0D/"501/ ! Write loiSical block r 

21 C 'write breakthrousfh c 

22 C ! and restore cursor 

23 C 

24 C Load parameter list 

25 CALL GET ADR ( PARAM < 1 ) y ' HELLO THERE ' ) 

26 PARAM(2) = 11 ! Leni^th of strinsJ 

27 PARAM (3) = "40 ! Blank for carr» ctrl* 

28 10 CALL ASNLUN<4y 'TT' ^TTUNITrDSW) ! Assign LUN 4 to 

29 C .» TTnJ 

30 IF (DSW»LT»0) GOTO 900 

31 CALL WTQI0(I0FC0D»4yl» yIOSB?PARAMyDSW) 

32 IF (DSW*LT*0) GOTO 910 ! Directive error 

33 IF (SUCCODd) ♦NE^l) GOTO 920 ! I/O error 

34 TTUNIT TTUNIT+1 

35 GOTO 10 

36 C 

37 C Error from ASNLUN* If ASNLUN failed because of illegal 

38 C unit number I* must have passed the last terminal* Exit* 

39 900 IF <DSUI*EQ*IEIDU) CALL EXIT 

40 TYPE 905yDSU ! Other error 

41 905 FORMAT (' ERROR ON ASNLUN* DSW = 'fI6) 

42 CALL EXIT 

43 910 TYPE 915 y TTUNIT » DSW 

44 915 FORMAT (' DIRECTIVE ERROR ON QIO TO TT'y02f':'/ 

45 1 ' DSW = ' yI6) 

46 CALL EXIT 

47 920 TYPE 925yTTUNITySUCC0D(2) ySUCCODd ) y I0SB(2) 

48 925 FORMAT (' I/O ERROR ON QIO TO TT'y02y':V 

49 1 ' I/O STATUS BLOCK = 'yI4y' y'yI4y' /'yI6) 

50 CALL EXIT 

51 END 
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Using Directives for Intertasic Communication 



TEST/EXERCISE 



Modify RECVl and SENDl to synchronize using Suspend and Resume 
directives instead of event flags. 

Modify RECV2 so that the display includes the name of the 
sending task in addition to the data. 

Write another sender task to send data to RECV2. Modify the 
receiver so that it receives data from your task only, not 
from SEND2. 

Modify SPAWN so that it spawns CLI..., MGR..., or ...DCL 

several different times and sends a different MCR or DCL 
command line each time. Display the exit status after each 
command executes. 

Write a parent task and an offspring task. Have the parent 
spawn the offspring. Have the offspring emit status to the 
parent every five seconds for 30 seconds and then exit. Have 
the parent display each status value. Optional: Use an AST 
routine in the parent for synchronization. 
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Using Directives for Intertask Communication 



SOLUTION 



1. 



3 
4 
5 
6 
7 
8 
9 
10 

11 
12 
13 
14 
15 
16 
17 
18 
19 

20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 

38 
39 
40 
41 
42 
43 
44 



♦TITLE SENDl 
♦I DENT /Ol/ 
♦ENABL LC 

y + 

y FILE LEX41A»HAC 



y En3ble lower esse 



y Modified to use Suspend 3rid Resume directives forJyEX 

y synchronization yJEX 
y 

y This task prompts at TI* for 3 line of text and sends 

y the data to RECMl for processing* Synchronization is 

y handled through a common event fla^» 

y 

y Assemble and task-build instructions* 

\ >MACR0/LIST/0BJECT:SEND1 LB:Clyl3PR06MACS/LI~y JEX 

y ->EiRARYydev:i:ufd3LEX41A 

y >L INK/MAP SENDl y LB : C 1 y 1 3PR0GSUBS/LIBRARY 

y 

y Install and run instructions J RECVl must be installed 

y and run prior to runnini^ SENDl* RECVl continues to run 

y until it receives 3 data packets* 



*MCALL 
*MCALL 



buffer: *blkb 

y 

* ENABL 

y 

START t: TYPE 

INPUT 

SDAT$C 

BCC 

DIRERR 



SDAT^IiCyEXIT$SyRSUM*C ? System macros? J EX 
TYPE y INPUT y DIRERR y Supplied macros 



1$: 



5$: 



RSUM$C 
BCC 

DIRERR 
EXIT$S 
*END 



26* 



LSB 



<TYPE A LINE OF 

♦BUFFER y*26* 
RECVly BUFFER 
1* 

<UNABLE TO QUEUE 



RECVl 
5$ 

<UNABLE TO 
START 



y Data buffer to be sent 



Enable local 
blocks 



symbol 



TEXTy 26 CHARACTERS OR LESS> 
y Type prompt 

y Get text to send 
y Send data to RECVl yyEX 
y Branch on directvie ok 

DATA TO RECV1> y Displsy 
y error message snd exit 
y Resume RECVl yJEX 
y Br3nch on directive okJJEX 
RESUME RECVi:?- J J yEX 

y Exi t y y EX 
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Using Directives for Intertask Communication 



SOLUTION 



6 
7 
8 
9 
10 

11 
12 
13 
14 
1'5 
16 
17 
IS 
19 
20 
21 
22 

23 
24 
2f5 

26 
27 
28 
29 
30 
31 

32 
33 



PROGRAM SENDl 



FILE LEX41A»F-TN 



C 
C 
C 

C Modified to use Suspend and Receive directives for 
C sv^nchroriiz3tion 
C 
C 
C 
C 

C 
C 
C 
C 
C 
C 



! !EX 
! ! EX 



This task prompts at TI* for 3 line of text snd sends 
the data to RECVl for processing* Synchronisstion is 
handled throujih 3 common event fl3i^» 



Install and run instructions* LEX41B must be 

installed under the name RECVl and run prior to 

running LEX41A* RECVl continues to run until it 

receives 3 data packets* 



!EX 
!EX 
!EX 



! Receiver task 



BYTE BUFFER (26) 

DATA R.TASK/6RRECV1 / 
C Prompt for input 

TYPE *r'TYPE A LINE OF TEXTr 26 CHARACTERS OR LESS' 

READ (5yl0) BUFFER ! Read text 

10 FORMAT (26A1) 

CALL SEND ( RTASK > BUFFER ^ r IDSU ) ! Send data ! ! EX 

IF (IDSW ♦LT* 0) GOTO 900 ! Branch on dir error 

CALL RESUME (RTASKr IDSW) ! Resume REC^l ! ! EX 

IF (IDSW ♦LT* 0) GOTO 950 ! Branch on dir errMEX 
CALL EXIT ! Exit 

C Error code 

900 TYPE *f 'UNABLE TO QUEUE DATA TO RECVl* DSW = '»IDSW 

CALL EXIT 

950 TYPE *f 'UNABLE TO RESUME REC^l* DSW •= '^IDSW HEX 

CALL EXIT ! !EX 

END 
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SOLUTION 



6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 



r + 



♦TITLE RECUl 
♦I DENT 701/ 

♦ENABL LC 5 Enable lower case 

9 FILE LEX41B»MAC 

Modified to use Suspend and Resume for synchronization ? y EX 

This task and receives data from any sender task 
(e*^*r SENDl)»It prints the data on TI*» Then it 
waits for another data packet* It does this until it 
has received 3 mess3.<3es and then exits* 

This task svjnchroni2:es with its sender throuj^h an 
event fla^* 

Assemble and task-build instructions* 

>MACR0/LIST/0BJECT:RECM1 LB:i:1 , laPROGMACS/LIB-J ?ex 
->RARY»dev:Cufd:iRECVl ? ?EX 

LINK/MAP RECVl^LBJCl f 13PR0GSUBS/LIBRARY 

Install and run instructions* RECV^l must be installed 
and run before runninjj SENDl ♦ 

♦MCALL RCUD$CfEXIT*S»SPND$SJ System macros JyEX 
♦ MCALL TYPErDIRERR r SuPF-lied macros 



RBUFF : ♦ BLKW 



♦ENABL LSB 



START : 

again: 



MOV 



spNri*s 



*3 f R5 



r Receive buffer 

i Enable local symbol 

f blocks 

f Initialize message 

r counter 



f Suspend self until? J EX 
f messa:3e arrives 
BCC 3$ r Branch on directive ok 

DIRERR -CSUSPEND DIRECTIVE FAILED> ? Display JJEX 

r error message and exit 
f We ^et here when resumed by SENDl yJEX 
3*J RCVD$C y RBUFF y Receive from anyone 

BCC 5* y Branch on directive ok 

DIRERR <RECEIVE DIRECTIVE FAILED IN "RECV1"> 

y Display error message 
y and exit 

y Successful receipt 

5*J TYPE <DATA RECEIVED BY "RECV1M> y Display 

y data 



39 



Using Directives for Intertasl^ Communication 



SOLUTION 



51 

52 

s;? 

54 

55 
56 
57 
58 
59 



TYPE 

DEC 

BNE 

TYPE 
EXIT$S 
♦ END 



*RBUFF+4f#26» 



? Display data sent by 



R5 

AGAIN 

<"RECV1 

START 



r sender 

y Decrement messasJe 
y counter 
y If not yet Oy .^et 
y another iriessa<3e 
HAS RECEIVED 3 MESSAGES AND WILL NOW EXIT.": 
y Exit after 3 messages 



1 PROGRAM RECVl 

2 C 

3 C FILE LEX41B,FTN ! ! EX 

4 C 

5 C Modified to use Suspend and Receive directives for ! ! EX 

6 C synchronisation ! ! EX 

7 C 

8 C This task receives data from LEX41At It prints 

9 C the data on TI*» Then it waits for another data 

10 C packet* It does this until it has received 3 messasies 

11 C and then exits* 

12 C 

13 C This task synchronizes with its sender throusih an 

14 C event fla^* 

15 C 

16 C Install and run instructions t LEX41B must be ! ! EX 

17 C installed under the name RF£CV1 and run before runnin?-J ! ! EX 

18 C LEX41A* ! ! EX 

19 C 

20 INTEGER RBUFFdS) ! Receive buffer 

21 C 

22 DO 100 I-==ly3 

23 10 CALL SUSPND (IDSW) ! Suspend until SENDl ! ! EX 

24 C ! sends data and resumes 

25 IF (IDSW ♦EQ* 2) GOTO 20 ! ! EX 

26 TYPE *y 'SUSPEND DIRECTIVE FAILED* DSW 'yIDSWMEX 

27 GOTO 1000 

28 20 CALL RECEIV ( y RBUFF y y IDSW ) ! Receive from anyone 

29 IF <IDSW ♦EQ* 1) GOTO 30 

30 TYPE *y 'RECEIVE DIRECTIVE FAILED IN 'RECVl"* 

31 1 nSW = 'yIDSW 

32 GOTO 1000 

33 30 TYPE *y'DATA RECEIVED BY "RECVl":' 

34 WRITE (5y35) < RBUFF < K ) yK==3y 15) 

35 35 FORMAT <' 'yl3A2) 

36 100 CONTINUE 

37 TYPE *y' -RECVl- HAS RECEIVED 3 MESSAGES AND WILL 

38 1 NOW EXIT' 

39 1000 CALL EXIT 

40 END 
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Using Directives for Intertasic Communication 



SOLUTION 



2. 



6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 



♦TITLE RECg2 
♦IDENT /Ol/ 
♦ENABL LC 



9 FILE LEX42*MAC 



r Enable lower C3se 
y } EX 



y Modified to display the sender task name in addition ??EX 

f to the data ? y EX 

y 

y This task receives data from another task* It prints 

f the datay alon^ with a headery on TIJ* Then it waits 

y for another data packet y continuinsi this until it has 

y received 3 messages* 
y 

y This task synchronizes with its sender usinj^ RCST$* 

y Because of this synchronization y the tasks can he run 

y in any ordery with any relative priorities* 
y 

y Assemble and task build instructions* 
y 

y >MAGRO/L I ST/OBJECT :RECV2 LB ** C 1 y 1 3PR0GMACS/LIB~ y yEX 

y ->RARYydev: Cufd3LEX42A ? yEX 

? >L INK/MAP RECV2yLBJi:iyl3PR0GSUBS/LIBRARY 

y 

y Install and run instructions* RECV2 must be installed* 
y 

♦MCALL RCST$CyRCyD*CyEXIT$S y System macros 



*MCALL TYPEyDIRERR 



rbuffj ♦blkw 15* 

tasknm: *blkw 3 

y 

♦ENABL LSB 



y Supplied mcjcros 

y Receive buffer 

y Buffer for task name? yEX 

y Enable local symbol 
y blocks 



START? MOV 
RECEIV: RCST*C 
BCC 

DIRERR 



#3yR5 y Set UP message counter 

yRBUFF y Receive from anyone 

5$ y Branch on directive ok 

<RECEIVE DIRECTIVE FAILED IN "RECV2"> 

y Display error message 
y and exit 

y Successful receipt or unstopped by another task* First 
y check for unstopped after beln^ stopped y in which case 
y we have to receive the data 
5$: 



CMP 
BNE 

RCVD*C 
BCC 



$DSWy*IS*SET 
6* 

yRBUFF 
6$ 



y Were we stopped due to 

y no data 

y If noty we have a data 

y packet 

y Now ^et the packet 

y Branch on directive ok 
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SOLUTION 



51 
52 
53 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 

y? 

73 
74 



DIRERR 



f Convert task 
6* J MOV 

MOV 
CALL 
MOV 

CALL 
TYPE- 
TYPE 
TYPE 
? Had to change 
DEC 

BEQ 
JMP 



DONE : 



TYPE 
TYPE 
EXIT$S 
♦ END 



CRECEIVE DIR FAILED AFTER "RECV2" UNSTOPPED: 

i Display error messaae 

? and exit 

-50 to ASCII 

? Address for converted? ?EX 
y name ? J EX 

? Word to be converted? >EX 

y Convert it 

? Next word to be 
? converted 

f Convert it 

BY "RECV2":> r Display 

f Display task name 
? and data sent 

for branch! 

5 Decrement messaiSe 

r counter 

? Branch if done 

r Receive ai^a in if not 
f yet 3 messa^Ses 
RECEIVED 3 MESSAGES.:- 



name from Radix 
♦TASKNM^RO 

RBUFFyRl 
*C5TA 

RBUFF+2yRl 
*C5TA 

<DATA RECEIVED 
#TASKNMr*6 
#RBUFFf4f ♦26* 
SOB too far 

R5 

DONE 
RECEIV 



? fEX 
r rEX 
? ?EX 
? JEX 
text 
? rEX 

r f EX 
? f EX 
f ?EX 
? ?EX 
?EX 
?EX 



<"RECV2" HAS 
<AND WILL NOW EXIT> J Type exit message 



r Exit 



START 



1 PROGRAM RECV2 

2 C 

3 C FILE LEX42»FTN ! ! EX 

4 C 

5 C Modified to display the sender task name in addition M EX 

6 C to the data ! ! EX 

7 C 

8 C This task receives data from another task (e»a» SEND2)» 

9 C It prints the datay alon^ with a header y on TI ♦ ♦ Then 

10 C it waits for another data packets continuin*^ this 

11 C until it has received 3 messasSes* 

12 C 

13 C This task synchronizes with its sender usind RCST* 

14 C Because of this synchronization? the tasks can be run 

15 C in any order y with any relative priorities* 

16 C 

17 C Install and run instructions J LEX42 must be instal led ! ! EX 

18 C under the name RECV2* !!EX 

19 C 
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20 


C 






21 




INTEGER RBUFF"(15) ! 


Receive buffer 


22 




INTEGER DSUflSSET 




23 




INTEGER TASKNM<3) ! 


Buffer for ASCII form!! EX 


24 


C 




of task naiTie ! ! EX 


25 




DATA ISSET/2/ ! 


DSW code iTineiTionic 


26 


C 






27 


C 






28 




DO 100 t 1=1 » 3 




29 






£3 £3 *i C3b V* iTi A r*a w r'l 


30 








31 




Tijpfj A.'RFCFIUF niRFCTIUF 


FAILED IN "RECV?". 


32 




X ju* \jw y wJ w I 


A.* J. n> r' X <:> ^ I I iJ I III C7 ^ ^ c> ^ cr 


33 




fiflTfl 1 000 1 

W 1 lij X \/ V V/ I 


1 1 *»i \z y\ J, \f 


34 


C 






35 


C 


fil innP'Cici'Pi 1 1 o f» 1 t. CiV 1 inci 1'.nj>P'P>ri 

w *>J 1— V> C7 19 ;i> 1 'mI , ■• 1 C7 w w •!• w W 1 'nl 1 1 J> w w w *«■ 


biM Pinnthpr t?ic;|<* Fif'^t 

1—* m7 C? I 1 W w 1 1 v7 1 w w w> r*. 9 1 .it t .if \f 


36 


C 


cHsck "for unstrOPpeci sftcr bt^xn^ 


stopped y in whicH case 


37 


C 


we have to receive the d3t<3 




38 


50 


IF (DSUI,NE*ISSET) GOTO 60 


! Were we stopped due 


39 


C 




! to no data? If not 


40 


C 




! (NE)* we have a 


41 


C 




! data packet 


42 


C 


Stopped due to no dsts* 




43 




CALL RECEI>^< .RBUFFy ^DSW) 


! Now :3et the packet 


44 




IF (DSW»EQ»1) GOTO 60 




45 




TYF'E *f 'RECEIVE DIRECTIVE 


FAILED AFTER "RECV2" 


46 




lUNSTOPPED* DSW = 'fDSW 


! Display error 


47 




GOTO 1000 


! message and exit 


48 


C 


Displsy data 




49 


60 


CALL R50ASC (6f RBUFFyTASKNM) ! ! EX 


50 




TYPE 75 r T ASKNM 9 ( RBUFF ( J ) r J 


=3fl5) !!EX 


51 


75 


FORMAT ( ' DATA RECEIVED BY 


"RECV2" : VlXfS ! !EX 


52 




lA2>lXyl3A2) 


! !EX 


53 


100 CONTINUE 




54 


C 


Have received 3 messages 




55 




TYPE *r'"RECV2" HAS RECEIVED 3 MESSAGES AND WILL 


56 




1 NOW EXIT' 




57 


1000 CALL EXIT ! 


Exit 


58 




END 





Using Directives for intertask Communication 



SOLUTION 



3. 



1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
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22 
23 
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26 
27 
28 
29 
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31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 



♦TITLE LEX43A 
♦I DENT /Ol/ 
♦ENABL LC 

FILE LEX43A.MAC 

A second sender to RECV2 



i Enable lower esse 



? t EX 



This task prompts 3t TIJ a line of text and sends the 
data to task RECV2 for processing* Synchronisation is 
handled throus^h RECV2''s stop bit* RECV2 will continue 
to run until it receives 3 messaj^es* RECV2 and LEX43A 
may be run in any order* 

Assemble and task build instructions* 

MACRO/LIST LB:C1 f 13PR0GMACS/LIBRARYydev:Cufd:.n.EX43A 
LINK/MAP LEX43A»LBJi:irlJPR0GSUBS/LIBRARY 

Install and run instructions* LEX43B must be installed 
under the name REC^^2 



*MCALL 
*MCALL 

f 

BUFF-ERT *BLKB 



SDAT$C!'USTP$C yEXIT*S 5 £>ystem macros 
TYPEy INPUTrDIRERR ? Supplied macros 



26* 



*ENABL LSB 



f Send buffer 

f Enable local symbol 
9 blocks 



START? : TYPE 

INPUT 

SDAT*C 

BCC 

DIRERR 



<TYPE A LINE OF 



1*: 



USTP*C 
BCC 
CMP 
BEQ 



CMP 
BEQ 



2*: 



EXIT*S 
* END 



TEXT» 26 CHARACTERS OR LESS! 
y Display prompt 
♦BUFFER y #26* J Issue read 
RECV2y BUFFER ? Queue data to RECV2 
1* ? E<ranch on directive ok 

<UNABLE TO QUEUE DATA TO "RECU2"> 

5 Display error messa<3e 
? and exit 
Unstop RECy2 
Branch on directive ok 
Isn't he stopped? 
That's oky he'll pick 
UP data when he 
executes RODS* 
Is he not active? 
If noty he'll pick up 

data when activated 
"RECV2"> y Any other 

error is bad 
Exit 



RECV2 
2$ 

*DSWy#IE*ITS 
2* 



*DSWy*IE*ACT 
2$ 



DIRERR <UNABLE TO UNSTOP 



START 
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2 


C 


3 


C 


4 


C 


5 


C 


6 


C 


7 


C 


8 


C 


9 


C 




t/ 


11 


C 


12 


c 


13 


c 


14 


c 


15 


c 


16 




17 




18 




19 




20 




21 




22 


c 


23 




24 




25 


5 


26 




27 
28 




29 




30 


10 


31 




32 




33 


C 


34 


C 


35 


C 


36 




37 


C 


38 


c 


39 




40 




41 


20 


42 





PROGRAM LEX43A 
FILE LEX43A»FTN 



• !EX 



A second sender task to send data to REC'v'2 



! !EX 



This task pronriF-ts at TI* for a line of text and sends 
the data to RECV2 for processing* The receiver will 
continue to run until it receives 3 messasSes* 
Synchronization is handled through REC'v'2 's stop bit* 
REC'v'2 and LEX43A may be run in any order* 



Install and run instructionsJ LEX43B must be 
installed under the name REC'v'2* 



! !EX 
! !EX 



BYTE BUFFER (26) 
INTEGER DSW 

REAL RECV2 

DATA RECV2y5RREC'^2/ 

INTEGER lEITSylEACT 
DATA IEITS»IEACT/-8i 



! Send buffer 



! Receiving task name 
! Error mnemonics 



•7/ 



TYPE *>'TYPE A LINE OF TEXTf 26 CHARACTERS OR LESS' 
READ (Sj-S) buffer 
FORMAT <26A1) 

CALL SEND (REC'^2y BUFFER DSW) 
IF (DSW*EQ*1) GOTO 10 
TYPE UNABLE TO QUEUE 
1 r DSW 

CALL USTP(REC'J2»DSW) 
IF <DSW*E0*1) GOTO 20 
<DSW*Ea*IEITS) GOTO 



Send data to RECM2 
DATA TO "RECV2"* DSW = ' 



IF 



! 
I 

20 
! 
} 
! 

IF (DSW*EO*IEACT) GOTO 20 

! 
! 

TYPE 'UNABLE TO UNSTOP 



CALL EXIT 
END 



Unstop RECV2 
Branch on directive ok 
! Isn't he stopped? 
That's okf he'll pick 
UP data when he 
executes RODS* 
• Is he not activ€*? If 
notr he'll Pick up 
data when activated 
'REC'^2" * DSW ■■■■^ ' yDSW 
Any other error is bad 
Exit 
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3 
4 
5 
6 
7 
8 
9 
.10 
11 
12 

i;3 

14 

15 
16 
17 
18 
19 
20 
21 
22 
2:5 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 



» TITLE RECV2 
♦ IIiENT /Ol/ 
♦ENABL LC 

FILE LEX43B»MAC 



r Enable lower esse 



? J EX 



Modified to recieve only from LEX43A J?EX 
note: THE TASK WILL EXIT WITH A NO DATA QUEUED ERROFv'JrEX 
IF SENri2 SENDS DATA AND UNSTOPS THE TASK, MORE ??EX 
COMPLICATED CODING IS NEEDED TO HAVE THIS TASK r?EX 
DISTINGUISH BETWEEN TASKS WHICH SEND DATA AND UNSTOP? ?EX 
IT ??EX 



This task receives data from another task* It prints 
the datdy alonsn with a header r on TIJ* Then it waits 
for another data racket f continuinsi this until it has 
received 3 messa<3es» 

This task synchronizes with its sender usina RCST*» 
Because of this synchronization » the tasks can be run 
in any order* with any relative priorities* 

Assemble and task-build instructions* 

>MACRO/L I ST/OBJECT :RECV2 LB : C 1 * 1 .IPROGMACS/LIB- ? ? EX 
->RARYrdev:Cufd3LEX43B ??EX 
>LINK/MAP RECV2»LB:C1» 13PR0GSUBS/LIBRARY 

Install and run instructions* RECV2 <LEX43B) must berrEX 
installed under the name RECV2* ??EX 

♦MCALL RCST*C»RCVD$C»EXIT*S 9 System macros 



♦MCALL TYPE^DIRERR 
15. 



rbuff: .blkw 

f 

♦ENABL LSB 



f Supplied macros 

f Receive buffer 

r Enable local symbol blocks 



start: MOV #3fR5 
RECEIV: RCST*C LEX43AyRBUFF 



BCC 

DIRERR 



5$ 



y Set UP messajSe counter 

r Receive from Just ??EX 

? LEX43A ??EX 

r Branch on directive ok 
RECEIVE DIRECTIVE FAILED IN "RECV2"> 

? Display error messa:3e 

f and exit 
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47 
48 
49 

50 
51 
52 
53 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 



Successful receipt or unstopped 
check for unstopped after beiniS 
we have to receive the data 



by another task* First 
stoppedif in which case 



6*: 



DONE : 



CMP 
BNE 

RCVD*C 
BCC 

DIRERR 

TYPE 

TYPE 
SOB 



DEC 
BEQ 
JMP 
TYPE 



EXIT$S 
♦ END 



*DSWr*IS»SET 
6* 

LEX43A,RBUFF 
6$ 

< RECEIVE DIR 



y Were we stopped due to 
f no data 

r If notr we have a data 
f packet 

f Now £3et the packet 
» Branch on directive ok 
FAILED AFTER "RECV2' UNSTOPPED> 
r Display error message 
and exit 



<DATA RECEIVED 

♦RBUFF+4r*26» 

RSyRECEig 



R5 

DONE 

RECEIV 

<"RECV2" 



r 

BY 



"RECV2*:> f Display 

f text and 
r data sent 
message 
Receive a^ain 
received 3 



Decrement 
counter ♦ 
if haven't 
yet 



HAS RECEIVED 3 



f Exit 



r f EX 
f ?EX 
? fEX 

MESSAGES AND WILL NOW EXIT: 
T Type exit 
r message 



START 



1 PROGRAM RECV2 

2 C 

3 C FILE LEX43B*FTN HEX 

4 C 

5 C Modified to receive only from LEX43A !! EX 

6 C note: task will EXIT WITH A NO DATA QUEUED ERROR IFMEX 

7 C SEND2 SENDS DATA* MORE COMPLICATED CODE IS NEEDED ! ! EX 

8 C TO CHECK FOR SEND2 SENDING DATA AND UNSTOPPING RECV2 ! ! EX 

9 C 

10 C This task receives data from another task (e*£i» SEND2)* 

11 C It prints the datay alon^ with a headers on TI*» Then 

12 C it waits for another data packets continuing this 

13 C until it has received 3 messa;3es» 

14 C 

15 C This task synchronizes with its sender usin^ RCST* 

16 C Because of this synchronization)' the tasks can be run 

17 C in any orderr with any relative priorities* 

18 C 

19 C Install and run instructions* LEX43B must be ! ! EX 

20 C installed under the name RECV2* ! ! EX 

21 C 
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23 
24 
25 
26 
27 
28 
29 
30 
3:l 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
58 
59 



INTEGER RBUFFdS) 
INTEGER nSWrlSSET 
REAL TASKNM 

DATA TASKNM /6RLEX43A/ 
DATA ISSET/2/ 



! Receive buffer 

! Task ri3iTie array ! ! EX 

! Task, name in RadiK-50 ! ! EX 

! DSW code mneinonic 



DO 100» 1=1 > 3 

CALL RCST ( TASKNM f RBUFF r DSW ) 
IF <DSW,GE»0) GOTO 50 
Type 'RECEIVE DIRECTIVE 
1 DSW = 'i-DSW ! 
GOTO 1000 ! 



! Receive froin LEX43A 

FAILED IN "RECV2", 
Display error message 
and exit 



C 
C 
C 
C 

50 
C 
C 
C 
C 



Successful receipt or unstopped 
check, for unstopped after bein^ 
we have to receive the data 

IF (DSW»NE»ISSET) GOTO 60 



by another task* F'irst 
stopped* in which case 

Were we stopped due 
to no data? If not 
(NE ) f we have a 
data packet 



Stopped due to no data* 

CALL RECEIV < TASKNM » RBUFF * f 



DSW) ! Now 

! packet 



sjet the ! ! EX 



FAILED AFTER "RECV2' 

! Display error 

! message and exit 



IF (DSW»Ea*l) GOTO 60 
TYPE *f 'RECEIVE DIRECTIVE 
1 UNSTOPPED* DSW = 'rDSW 
GOTO 1000 i 
Display data 

TYPE 75* (RBUFF( J) > J=3?15) 
FORMAT (' DATA RECEIVED BY 
CONTINUE 
received 3 messages 
TYPE *y'"RECV2" HAS RECEIVED 3 MESSAGES AND WILL 
1 NOW EXIT' 

CALL EXIT ! Exit 

END 



C 

60 
75 
100 

C Have 



1000 



"RECV2' 



/IXf 13A2) 
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6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 



♦TITLE SPAWN 
♦ iriENT /02/ 

♦ENABL LC 



5 Enable lower case 



File LEX44,MAC 



? ? EX 



This FTO^ram spawns MCR***!- passes it a series of ??EX 
coiTiinand lines? waits for each to eKitj' and ??EX 
displays each command's exit status* JrEX 

Assemble and task-build instructions* 

HACRO/LIST LBJClf 13PR0GMACS/LIBRARY»dev:Cufd3LEX44 
LINK/MAP LEX44 ? LB I C 1 r 1 3PR0GSUBS/LIBRARY 

♦ MCALL SPUN*yEXIT$SyWTSE*CyQI0W*Sj'Q10W*C 

i System macros 

♦MCALL DIRERR^IOERR 
♦NLIST BEX 



f Supplied macros 
r Inhibit listing of 
f binary extensions 



CMDl J 
LENl 
CMD2J 
LEN2 ■■ 
CMD3; 



♦ASCII "PIP **MAC/LI 
=»-CMDl 
♦ASCII /ACT/ 
♦~C«B2 
♦ASCII /TIM/ 



f Command line 

» Length of command 



LEN3 ♦~CMD3 

SMES: ♦ASCII /SPAWN IS STARTING AND WILL SPAWN/ 
♦ASCII / MCR COMMANDS/ 5 Startup message 



y JEX 
f J EX 
f ?EX 
f ?EX 
f JEX 
y >EX 

? vEX 
9 ?EX 



LSMES =:*-SMES 

♦ EVEN 
iosb: ♦BLKW 
exstat: ♦blkw 

cmdtbl: ♦word 

♦ WORD 

♦ WORD 

♦ WORD 

spawn: spwn* 



8* 

CMDlyLENl 
CMD2rLEN2 
CMD3yLEN3 




J Lensith of message 

y I/O status block 

y Exit status block 

y Table indexing 

y MCR commands 



y End of table 
MCR ♦♦♦yyyyylyy EXSTAT 



y y EX 

y y EX 

y y EX 

y y EX 



y y EX 



80. 



y Output messaiSe buffer 



BUFF! .BLKB 
y Format strings* 

FMTt .ASCII /%NSPAWN REPORTING! COMMAND/ 

♦ ASCIZ / COMPLETED ♦ EXIT STATUS WAS %D^%N/ 

♦ EVEN 

STARTJ QIOW*C 10 ♦ WVB y 5 y 1 y y IOSB y y <SMES y LSMES y 40> 

BCS ERR ID y Branch on dir error 

TSTB IOSB y Check for I/O error 

BLT ERRII y Branch on I/O error 



y yEX 
y y EX 



49 



Using Directives for Intertask Communication 









SOLUTION 






52 




MOV 


#CMDTBLi.R3 ? 


R3 => comiTiarid "table 


r ? EX 


53 




MOV 


♦SPAWN »R4 ? 


R4 => SPAWN DPB 


9 9 EX 


54 


getcmd: 


MOV 


(R3)+fS»PWCA(R4) J 


Set comiiiand address 


? f EX 


55 




BEQ 


DONE f 


If Of end of list 


9 f*EX 


56 




MOV 


(R3)+>S,PWCL(R4) ? 


Command lenssth 


9 9 EX 


57 




ruR* 


R4 f 


Spawn MCR* ♦ ♦ 


9 ;ex 


58 




BCS 


ERR2 J 


Branch on dir error 




59 




WTSE*C 


1 f 


Wait for task to ex 


It 


60 




BCS 


ERR3 T 


Branch on dir error 




61 




BIG 


#1 77400 fEXSTAT 9 


Clear hidh order bwte 


62 








of exit status 




63 




MOV 


#BUFF»RO r 


Set UP for $EDMSG 




64 




MOV 


*FMT»R1 ? 






65 




MOV 


#EXSTATfR2 ? 






66 




CALL 


$EDMSG ? 


Edit status message 




67 






# 10 ♦ WVB r*5y*ly y #IOSB f f <*BUFF fRlf ♦40> 




68 








Display exit status 




69 




BCS 


ERR4D f 


Branch on dir error 




70 




TSTB 


lOSB f 


Check for I/O error 




71 




BLT 


ERR 4 I ? 


Branch on I/O error 




72 




BR 


GETCMD ? 


Get next command 


9 9 EX 


73 


DONE : 


EXIT$S 




Exit 


9 9 EX 


74 


? Error 


handling code - f Display 


error message and exit 


75 


errid: 


DIRERR 


<ERROR WRITING STARTUP MESSAGE.?- 




76 


ERRli: 


lOERR 


#IOSBf<ERROR WRITING STARTUP TEXT> 




77 


ERR2 : 


DIRERR 


<ERROR SPAWNING MCR> 


9 9 EX 


78 


ERR3 : 


DIRERR 


<ERROR WAITING FOR 


EVENT FLAG> 




79 


ERR4D: 


DIRERR 


<ERROR WRITING EXIT STATUS> 


9 9 EX 


80 


ERR4I J 


lOERR 


#IOSBy<ERROR WRITl 


NG EXIT STATUS> 


9 9 EX 


81 




♦ END 


START 
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PROGRAM \ 
File LEX44*FTN 



IPUN 



This program spswns ♦♦♦DCLi' passes it a series of 
coirimand lines > waits for each to exity and 
displays each commarid ' s exit status* 

Data 

INTEGER EXSTAT(8) rPLIST(6) rDSW 
BYTE BUFF (80) 
CoiTimands to be spawned* 

DIR **MAC 

SHOW TASKS/ ACT I'VE 

SHOW TIME 



Code 



25 
30 

C Error 
900 

910 
1000 



REAL CMri(5?3) 
DATA CMD/'DIR 



1 'mm't' 

2 'swm'j' 

INTEGER LEN<3) 
DATA LEN/9fl7r9/ 



TAS' f 'KS/A' » 'CTIV f 'E' > 
TIM' f 'E' » 1 0/ 



!EX 
!EX 
•EX 



! !EX 

!EX 
!EX 
!EX 

! !EX 



! !EX 



.' Write 
STARTING AND 



messasJe 
WILL SPAWN 



REAL DCL 

DATA DCL/6R* * ♦DCL/ 



WRITE (5fl5) 
FORMAT < ' SPAWN IS 
1 'DCL COMMANDS' ) ! ! EX 

DO 30fl=l»3 

CALL SPAWNCDCL^ » f If yEXSTAT^ »CMD(lyI) »LEN(I) 
1 » f fDSW) ! !EX 

Spawn DCL 

Branch on dir error 
Wait for task to exit 
Branch on dir error 
Display low 
exit status 



IF <DSW«LT*0) GOTO 900 
CALL WAITFRdf DSW) 
IF (DSW*LT»0) GOTO 910 
WRITE (5»25) EXSTATd) ♦AND* "377 ! 

! byte of 

FORMAT (' SPAWN REPORTING: COMMAND COMPLETED* 

1 ' EXIT STATUS WAS 'fll»'^') 

CONTINUE 

CALL EXIT ! Exit 

handl insf code 

TYPE 'ERROR SPAWNING DCL* DSW 
GOTO 1000 

TYPE 'ERROR WAITING FOR EVENT 
CALL EXIT 
END 



= 'fDSW 

FLAG* DSW 'fDSW 
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.TITLE 


LEX45A 






♦I DENT 


/Ol/ 


3 




♦ ENABL 


LC y Enable lower case 


4 


r + 






5 


f File 


LEX45A.MAC 


6 
7 


f Solution to Module 4? Lab Exercise 5 ~ Part Ay F'srent 


8 


y task 






9 
10 


r Task 


spawns LEX45B and reports status of that task* 


1 1 


? Synchronization is throu:3h an AST routine* 


12 

J. O 




♦GLOBL 


$EDMSG 


14 




♦MCALL 


CLEF* y WTSE*C y SPWN*C y EXIT*S y QIOW* y D I R* 


15 




♦MCALL 


SETF*C y CNCT*C y ASTX*S y QIOW*C y ABRT*C 


16 




♦MCALL 


DIRERR 


1 7 


f 






18 


Qio: 


QIOW* 


I0*WVBy5y2y y y y<0UTBUFy0y40> y SetlTiSJ^ 


1 o 

.1. y 






y length later 




clef: 


CLEF* 


1 


21 


J $EDMSG arsSument block* 




EDMAF\'GJ 


* WORD 


OFEMST y => OFEMST or OFEXIT 




status: 


♦ BLKW 


8^ y Offsprings status block 


24 


i 

MSG: 


. ASCIZ 


/OFFSPRING 7.1* STATUS %D%N/ 


26 


OFEMST : 


♦ASCIZ 


/EMITTED STATUS/ 


27 


ofexit: 


♦ASCIZ 


/EXITED/ 




outbuf: 


♦ BLKB 


200» 


29 




♦ EVEN 




30 


r 










♦ENABLE 


LSB 


32 


start: 


MOV 


#010 yR4 y R4 => QIOW* DPB 


33 




DIR* 


♦CLEF y CLEF ly used to synch 


34 






y with AST routine 


35 




BCS 


ERRl 


36 




SPWN*C 


LEX45By y y y y yASTRTNrSTATUS y Spawn LEX45 


37 




BCS 


ERR2 


38 


1$: 


UITSE*C 


1 y Wait until AST occurs 


39 






y and AST routine sets 


40 






y fla^ 


41 




BCS 


ERR3 


42 




MOV 


#OUTBUFyRO y RO => *EDMSG output 


43 




MOV 


#MSGyRl y Rl ==> *EDMSG input 


44 




MOV 


#EDMARGyR2 y R2 -> *EDMSG arguments 


45 




MOVB 


STATUS yR5 y Extend si^n on status 


46 




MOV 


R5y STATUS y bytey also keep in R5 


47 




BMI 


2* y Minus values mean EMST 


48 




MOV 


#OFEXITyEDMARG ? >= means EXIT 


49 


2$: 


CALL 


*EDMSG 


50 




MOV 


Rl yQ^ I0PL+2<R4) y Load messaiSe length 
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Using Directives for Intertask Communication 



SOLUTION 



51 




DIR* 


R4 


r QIOW* to Ti: 


52 




BCS 


ERR4 




53 




TST 


R5 


r Did offspring exit? 


54 




BGE 


3* 


f Yes 


55 




riIR$ 


♦CLEF 


r No* Clear EF 1 a^ain 


56 




BCS 


ERRS 




57 




BR 


1$ 


f Wait 


58 


3$ J 


EXIT*S 




? Once offsprinia exitsr 


59 








r so should parent 


60 


? 








61 


ERRi; 


DIRERR 


<ERROR 


ON INITIAL CLEF*> 


62 


ERR2 : 


DIRERR 


<ERROR 


SPAWNING LEX45B> 


6,5 


ERR3 : 


DIRERR 


<ERROR 


ON WTSE*C> 


64 


ERR4: 


DIRERR 


<ERROR 


ON QIOW*> 


65 


ERR5t 


DIRERR 


<ERROR 


ON CLEF$> 


66 










6/ 


f AST routiner 


entered 


when offspring emits status 


68 


? (negative status value) or exits (positive status 


69 


J value) 






70 










71 


astrtn: 


SETF*C 


1 


? Awaken main code 


/2 




BCS 


ERR6 




73 




CMP 


$DSWf#IS^SET t If setf main code is 


74 








? not ready yet 


75 




BEQ 


OVRRUN 


r We've been overrun 


/6 




TST 


STATUS 


r Has offsprinsj exited? 


77 




BGE 


4* 


r If sot don't try to 


"70 
/O 








r reconnect 


—7 
/7 




CNCT*C 


LEX45Br 


f ASTRTN r STATUS 


80 




BCS 


ERR7 




ol 


4*: 


TST 


<SP) + 


y Clean up stack from AST 


82 




ASTX*S 




r Let main code run 


83 


r 








84 


f If a 


new status comes 


in before we're done with the old 


85 


? one f 


something is wron^* Stop everything* 


86 


t 








87 


OVRNMS: 


♦ASCII 


/STATUS 


RECEIVED BEFORE READY ♦ / 


88 




♦ASCII 


/ ABORTING BOTH TASKS ♦/ 


89 


OVRNML 


^ ♦-OVRNMS 




90 




♦ EVEN 






91 


t 








92 


OMRRUN : 


QIOW$C 


1 ♦ WVB f5,39fff <OMRNMS , OMRNML f 40> 


93 




ABRT$C 


LEX45B 


y Abort offspring 


94 




BCS 


ERRS 




95 




EXIT$S 




r Exit this task 


96 


f 








97 


ERR6 : 


DIRERR 


<ERROR 


FROM SETF* IN AST ROUTINE> 


98 


ERR7 : 


DIRERR 


<ERROR 


CONNECTING TO OFFSPRING> 


99 


ERR8 : 


DIRERR 


<ERROR 


ABORTING OFFSPRINGS- 


100 




♦ END 


START 
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Using Directives for Intertask Communication 

SOLUTION 



1 




PROGRAM LEX45A 


2 


C+ 




3 


C File 


LEX45A»FTN 


4 


C 




5 


C Solution to Module 4f Lab EKercise 5 - Part Ay parent 


6 


C task 




7 


C 




8 


C Task 


spawns LEX45B and reports status of that task* 


9 


C Ne^gative status values are used when emittinsJ status » 


10 


C F'ositive values when e>;itin!a» 


1 1 


C 




12 


C Synchronization is throu<3h an event fla*3» 


13 


C- 




14 


C 




15 




REAL LEX45B 


16 




DATA LEX45B/6RLEX45E!/ 


17 




INTEGER STATUS ( 8) fDSW 


18 


C 




19 


C Spawn 


1 LEX45B: 


20 




CALL SPAWN (LEX45By r » 1> f STATUS r f y y y yDSW) 


21 




IF (DSW.LT.O) GOTO 900 




10 


CALL WAITFRd yDSW) ! Wait until EXIT or 




C 


! EMIT STATUS occurs 


24 




IF (DSW»LT»0) GOTO 910 


OCT 




IF (STATUS(l) ♦GE^O) GOTO 20 ! Offspring exited 


.•:6 


C 


! Emitted status* 


2.7 




TYPE 15ySTATUS<l) ♦OR, "177400 ! Display statusy 




C 


! ne<=j si<Sn extended 




C 


• to det ne^ value 


30 


15 


FORMAT (' OFFSPRING EMITTED STATUS* STATUS = 'y 


31 




114/) 


32 




CALL CNCT <LEX45Byly ySTATUSy yDSW) ! Reconnect 


33 




IF (DSU*LT*0) GOTO 920 


34 

35 




GOTO 10 ! Wait for next status 


36 


C Offsprin<3 exited* 


37 


C 




38 


20 


TYPE 25ySTATUS<l ) *AND* "377 


39 


25 


FORMAT (' OFFSPRING EXITED* STATUS =-- 'yI4/) 


40 




CALL EXIT ! Once offsprinsi exits y 


41 


C 


! so should parent 


42 


C 




43 


900 


TYPE *y 'ERROR SPAWNING LEX45B* DSW 'yDSW 


44 




GOTO 1000 


45 


910 


TYPE *y 'ERROR ON WAITFR* DSW = 'yDSW 


46 




GOTO 1000 


47 


920 


TYPE *y 'ERROR CONNECTING TO OFFSPRING* DSW = 'y 


48 




IDSW 


49 


1000 


CALL EXIT 


50 




END 
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Using Directives for Intertasic Communication 



SOLUTION 



♦TITLE LEX45B 
♦IDENT /Ol/ 
♦ENABL LC 



? Eri3ble lower case 



6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 

20 
21 
22 
23 
24 
25 
26 
27 
2B 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 



File LEX45B*MAC 



Solution to Module Ar Lab Exercise 5 
offspririiS task 



Part Bf 



This task is spawned by LEX45A* It emits a negative 
status every 5 seconds > then exits after 30 seconds 
(6 emits y then an exit)* 

If an emit status fails because this task was not 
connected to the parent y another eiriit status will be 
tried 5 seconds later* Two consecutive failures cause 
this task to exit with an error messa«je* 

This task must be installed under task name LEX45B* 



ncnct: 



NCNCTL 



STAFrn 



emst: 



1$: 



♦MCALL 
,MCALL. 

♦ASCII 
<.BYTE 
♦ASCII 
= ♦•••NCNC 
♦ EUEN 

CLF? 
CLR 



MOV 

DEC 
BMI 

MRKT*C 
BCS 

EMST$S 

BCS 

CLR 

BR 

CMP 

BNE 



EMGT$S y QI OU*C y WTSE$C y MRKT*C y EXI T$S 
DIRERR 

/LEX45B NOT CONNECTED TO ANY PARENT/ 
15yl2 

/WILL TRY AGAIN IN 5 SECONDS/ 



RO 
Rl 



#6 y R3 
R3 

EXIT 
Iy5y2 
ERRl 
RO 

yRO 

1* 

Rl 

WAIT 

$DSWy*IE^ITS 

ERR2 



y RO ~ exit status 

y Rl ~ means last 

y attempt to emit status 

y suceeded^ RO < means 

y it failed because we 

y were not connected 

y R3 = number of emits 

y yet to be issued 

y Set timer (a^ain)? 

y Noy Just exit 

y Set timer for 5 seconds 

y Use status < when 

y emittinsf 

y Emit to parent 

y Failed^ Why? 

y Note success 

y Wait for 5 sees to pass 

y Failed because not 

y connected? 

y Any other reason y «uit 
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Using Directives for Intertask Communication 



SOLUTION 



52 
53 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 



wait: 



EXIT! 



TST Rl 
BMI ERR2 
DEC Rl 



BCS ERR3 

WTSE$C 1 

BCS ERR4 

BR EMST 
EXITfS 



too? 
this 



9 Failed last time 

9 Then :aive up 

9 Else note we failed 
r time 

9 And announce the 
9 problem* 
<NCNCT»NCNCTLf 40> 

9 And trvi aSa in in 5 sees 

9 Wait for 5 sees to pass 



9 Exit (with sueeess) 



9 Directive errors 



ERRl : 
ERR2: 
ERR 3: 
ERR4 1 



DIRERR 
DIRERR 
DIRERR 
DIRERR 
♦ END 



<ERROR 
<ERROR 
<ERROR 
<ERROR 
START 



ON MRKT*C> 
EMITTING TO 
ON QIOW*C> 
ON WTSE*C> 



PARENT> 



1 PROGRAM LEX45B 

2 C+ 

3 C File LEX45B*F"TN 

4 C 

5 C Solution to Module 4? Lab Exercise 5 - Part By 

6 C offspring task 

7 C 

8 C This task is spawned by LEX45A* It emits a ne£{ative 

9 C status ©very 5 seconds r then exits after 30 seconds 

10 C (6 emitS)- then an exit)* 

1 1 C 

12 C If an emit status fails because this task was not 

13 C connected to the parents another emit status will be 

14 C tried 5 seconds later* Two consecutive failures cause 

15 C this task to exit with an error messasJe* 

16 C 

17 C This task must be installed under task name LEX45B* 

18 C~ 
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Using Directives for Intertasic Communication 



SOLUTION 



19 


C 






20 




INTEGER DSWylEITS 




21 




DATA :i:eits/ "8/ 


! Error mnemonic 


22 




L0GICAL*1 ERLAST 


! Fl3£l if last EMST 


23 


C 




! failed because we were 


24 


c 




! not connected 


25 




DATA ERLAST/ ♦FALSE*/ 




26 


C 






27 




DO 50? 1=1? 6 


! Issue 6 EMSTs 


28 




CALL MARK <l»5y2yDSW) 


! Set timer for 5 seconds 


29 




IF (DSWJ..T.O) GOTO 900 




30 




CALL EMST< » <"-I) »DSW) 


! Emit to parent 


31 




IF (DSU*LT»0) GOTO 20 


! Failed* Why? 


32 




ERLAST = .FALSE* 


! Note success 


33 




GOTO 30 


! Wait for 5 sees to pass 


34 


20 


IF (DSW.NE.IEITS) GOTO 


910 ! Failed for reason 


35 


C 




! other than not 


36 


C 




! connected 


37 




IF (ERLAST) GOTO 910 


! Failed last time too? 


38 


C 




! Then fJive up* 


39 




ERLAST ~ .TRUE* 


! Else note we failed 


40 






! this time 


41 


C 




! And announce the 


42 


C 




! problem* 


43 




TYPE 25 




44 


25 


FORMAT ('LEX45B NOT CONNECTED TO ANY PARENT'/ 


45 




1 'WILL TRY AGAIN IN 5 


SECONDS ' ) 


46 


C 




! And try a^a in in 5 sees 


47 


30 


CALL WAITFRdf DSW) 


! Wait for 5 sees to pass 


48 




IF (DSW.LT.O) GOTO 920 




49 


50 


CONTINUE 




50 




CALL EXIT 


! Exit (with success) 


51 


C 






52 


C Directive errors 




53 


C 






54 


900 


TYPE *y 'ERROR ON MRKT* 


DSW = ' y DSW 


55 




GOTO 1000 




56 


910 


TYPE *y 'ERROR EMITTING 


TO PARENT* DSW ' yDSW 


57 




GOTO 1000 




58 


920 


TYPE *? 'ERROR ON WAITER* DSW 'yDSW 


59 


1000 


CALL EXIT 




60 




END 
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Memory Management Concepts 



TEST/EXERCISE 



Write 'M' if the statement applies to mapped systems, 'U' if 
it applies to unmapped systems, or *M,U' if it applies to 
both . 

a. Physical addresses up to 32K words accessible with 

16-bit addressing. 

b. Physical addresses up to 128K words accessible with 

18-bit addressing. 

c. Program relocation possible without having to program 

or task-build again. 

d. Detection of memory protection violations. 

e. Program executes only at physical addresses that match 

the virtual addresses created by the task builder. 

f. Virtual address limit of 32K words. 



Fill in the headings and the missing values in Figure 1. 
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ADDRESSES 



160000 



100000 



60000 



20000 




MEMORY 



COMMON 

8K WORDS 



TASK 

7K WORDS 



APR 

# 




PAR 

VALUES 



013422 



000000 



000000 



000000 



012736 



MEMORY 



ADDRESSES 



/ 



/ 



COMMON 



TASK 



01253600 



H 

m 

0) 
H 

m 

X 

m 

3D 

o 

C/) 

m 



(D 

3 
o 



0) 
3' 
0) 
(O 
<D 

3 

(D 



O 
o 

3 

O 

■o 

(0 



Figure 1 Virtual Addresses, APRs and Physical Addresses 

in a Mapped System 



Memory Management Concepts 



SOLUTION 



Write 'M' if the statement applies to mapped systems, 'U' if 
it applies to unmapped systems, or 'M,U' if it applies to 
both. 

U a. Physical addresses up to 32K words accessible with 
16-bit addressing. (M is also acceptable since 32K 
words is the limit of 16-bit addressing even on a 
mapped system.) 

M b. Physical addresses up to 128K words accessible with 
18-bit addressing. 

M c. Program relocation possible without having to program 
or task-build again. 

M d. Detection of memory protection violations. 

U e . Program executes only at physical addresses that match 
the virtual addresses created by the task builder. 

M,U f . Virtual address limit of 32K words. 

Fill in the headings and the missing values in Figure 1. 
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VIRTUAL 

ADDRESSES 



160000 
140000 



20000 




VIRTUAL 

MEMORY 



COMMON 

8K WORDS 




TASK 

7K WORDS 



APR 

# 



PAR 

VALUES 



013622 



013422 



000000 



000000 



000000 



000000 



012736 



012536 



/ 



PHYSICAL 

MEMORY 



COMMON 



TASK 



PHYSICAL 

ADDRESSES 



Figure 1 



Virtual Addresses, APRs and Physical 
in a Mapped System 



Addresses 



Overlaying Techniques 



TEST/EXERCISE 

The following is an output display from a task 



MAIN CALLING SUBROUTINE G 
G CALLING SUBROUTINE Gl 
Gl RUNNING 

MAIN CALLING SUBROUTINE HI 
HI RUNNING 

MAIN CALLING SUBROUTINE H 
H CALLING SUBROUTINE HI 
HI RUNNING 

H CALLING SUBROUTINE H2 
H2 RUNNING 
MAIN EXITING 



The calling sequence parallels the output display. 

1. Draw an overlay tree diagram or a memory allocation diagram 
for a possible overlay structure for the task. 



2. Write the modules MAIN, G, Gl, H, HI, and H2. Assemble or 
compile each one. 

3. Task-build and run the task without overlays. Obtain a map. 

4. Task-build and run the task with all disk-resident overlays. 
Obtain a map. 

5. Task-build and run the task with all memory-resident overlays. 
Obtain a map. 
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Overlaying Techniques 



TEST/EXERCISE 



6. Task-build and run the task with G, Gl and H in memory- 
resident overlays, HI and H2 in disk-resident overlays. 
Obtain a map. 

7. Use the map to fill in the following table: 

Type of Starting Virtual Starting Virtual 

Overlay Address of G Address of HI 

No Overlays 

All 

Disk-Resident 
Overlays 

All 

Memory-Resident 
Overlays 

Di sk-Resident 
and Memory- 
Resident 
Overlays 

8. (Optional) Task-build Example 6-5 so that the module TOTAL is 
in an overlay segment. 

9. (Optional) Modify Exercise 8. Add a subroutine RTOTAL which 
displays the running total after each job (e.g., THE TOTAL SO 
FAR IS XX) . 

NOTE 1 

For debugging, place RTOTAL in the root 
segment and place all calls to RTOTAL in the 
module MAIN. 

NOTE 2 

Once RTOTAL is debugged, build the task with 
RTOTAL in an existing overlay segment. Place 
RTOTAL so that the task executes the fastest. 
(Still use autoload, but place RTOTAL to 
minimize loading of overlay segments.) 
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Overlaying Techniques 



SOLUTION 



The following is an output display from a task. 

MAIN CALLING SUBROUTINE G 
G CALLING SUBROUTINE Gl 
Gl RUNNING 

MAIN CALLING SUBROUTINE HI 
HI RUNNING 

MAIN CALLING SUBROUTINE H 
H CALLING SUBROUTINE HI 
HI RUNNING 

H CALLING SUBROUTINE H2 
H2 RUNNING 
MAIN EXITING 

The calling sequence parallels the output display. 

1. Draw an overlay tree diagram or a memory allocation diagram 
for a possible overlay structure for the task. 



OVERLAY TREE 

Gl HI H2 



MEMORY ALLOCATION 
DIAGRAM 



Gl 


HI H2 


G 


H 


MAIN 



MAIN 



TK-7744 
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Overlaying Techniques 
SOLUTION 



2. 1 ♦TITLE MAIN 

2 ♦ I DENT 701/ 

3 tENABLE LC r Ensble lower case 
A r 

5 f File LEX6A,MAC 

6 y 

7 r Mainline routine for Module 69 Lab Exercises 1-6* 
(3 t Illustrate different overlays and their effects* 
9 f 

10 ♦GLOBL GrHlrH J Subroutines called 

11 ♦MCALL CaOW$CrEXIT*S 

12 ♦MCALL DIRERR 

13 ? 

14 9 Message's 

15 ? 

16 CGMS: ♦ASCII /MAIN CALLING SUBROUTINE G/ 

17 CGML =•• ♦-CGMS 

18 CHIMS: ♦ASCII /MAIN CALLING SUBROUTINE HI/ 

19 CHI ML ♦ -CHIMS 

20 CHMS: ♦ASCII /MAIN CALLING SUBROUTINE H/ 

21 CHML = ♦-CHMS 

22 EXMS: ♦ASCII /MAIN EXITING/ 

23 EXML - ♦-EXMS 

24 ♦EVEN 

25 ? 

26 y For each routine? typ-e messasfe then call routine 

27 ? 

2B start: QI0W*C I0*WVBy5ylyyy y<CGMSyCGMLy40> 

29 BCS lOFAIL 

30 CALL G 

31 aiOW*C lO^WVBySyl y y y y<CHlMSyCHlMLy40> 

32 BCS I OF AIL 

33 CALL HI 

34 aiOW*C lO^WVBySylyyy y<CHMSyCHMLy40> 

35 BCS lOFAIL 

36 CALL H 

37 aiOW*C lO^WVBySyl y y y y<EXMSyEXMLy40> 

38 EXIT$S 

39 IOFAILJ: DIRERR •i.ERROR ON QIO TO TERMINALS- 

40 ♦END START 
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Overlaying Techniques 
SOLUTION 



1 PROGRAM MAIN 

2 C 

3 C File LEX6A*FTN 

4 C 

5 C Mainline routine for Module 6r Lab Exercises 1-6* 

6 C Illustrate different overlays and their effects. 

7 C 

8 C For each routine? type message then call routine 

9 C 

10 TYPE *y'MAIN CALLING SUBROUTINE 6' 

11 CALL G 

12 TYPE *y'MAIN CALLING SUBROUTINE HI' 

13 CALL HI 

14 TYPE *y'MAIN CALLING SUBROUTINE H' 

15 CALL H 

16 TYPE JKi-'MAIN EXITING' 

17 CALL EXIT 

18 END 



3 
4 

6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 



♦TITLE 6 

♦I DENT /Ol/ 

♦ENABL LC 

r 

r File LEX6B*MAC 



r Enable lower case 



9 Subroutine for Module 6r Lab Exercises 1-6 ♦ 

? Illustrate different overlays and their effects* 



♦GLOBL 
♦GLOBL 
♦MCALL 



Gl 

lOFAIL 
QIOU*C 



r Subroutine called 
r Error routine 



f Messasies 



CGIMS: .ASCII /G CALLING SUBROUTINE Gl/ 
CGIML = .-CGIMS 

♦ EVEN 

r 

} Type messasie then call routine 
r 

Git aiOW*C lO.UVBrSfli- » » »<C61MS»CG1ML»40> 

BCS ERROR 
CALL Gl 
RETURN 

error: jmp iofail 

♦ END 
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Overlaying Techniques 
SOLUTION 



1 SUBROUTINE G 

2 C 

3 C File LEX6BJ~TN 

4 C 

5 C Subroutine for Module 6y Lab Exercises 1-6* 

6 C Illustrate different overlays and their effects* 

7 C 

B C Tyj^-c? inessaiSe then call routine 

9 C 

10 TYPE *r'G CALLING SUBROUTINE Gl ' 

11 CALL Gl 

12 RETURN 

13 END 



1 ♦TITLE Gl 

2 ♦IDENT /Ol/ 

3 tENABL LC ? Enable lower case 

4 ? 

5 J File LEX6C»MAC 

6 y 

7 J Subroutine for Module 6r Lab Exercises 1-6 ♦ 

8 r Illustrate different overlays and their effects* 

9 9 

10 ♦GLOBL lOFAIL r Error routine 

11 ♦MCALL QIOW*C 

12 f 

13 r Messa£U?s 

14 f 

15 GIRUNJ ♦ASCII /Gl RUNNING/ 

16 GIRUNL == ♦--GIRUN 

17 *EVEN 

18 ; 

19 f Type messasfe then return 

20 f 

21 GIM QIOU$C I0*WVBr5» 1 » y » y<GlRUN»GlRUNLr40> 
22 BCS ERROR 

23 RETURN 

24 error: JMP IOFAIL 

25 *END 
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Overlaying Techniques 
SOLUTION 



1 SUBROUTINE Gl 

2 C 

3 C File LEX6C»FTN 

4 C 

5 C Subroutine for Module 6r Lab Exercises 1-6 » 

6 C Illustrate different overlays and their effects* 

7 C 

8 C Type message then return 

9 C 

10 TYPE ty'Gl RUNNING' 

11 RETURN 

12 END 



3 
4 

L=; 

6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 

26 
27 
28 
29 
30 
31 
32 



♦TITLE H 
♦IDENT 701/ 
♦ENABL LC 

9 

i File LEX6n.MAC 



f Enable lower case 



t Subroutine for Module 6f Lab Exercises 1-6 ♦ 

V Illustrate different overlays and their effects* 

r 

♦GLOBL HlyH2 J Subroutines called 

♦6L0BL lOFAIL ? Error routine 

♦MGALL QIOW*C 

y 

f Messai-Jes 
t 

GHIMSJ ♦ASCII /H CALLING SUBROUTINE HI/ 
CHI ML -• ♦-CHI MS 

CH2MSJ ♦ASCII /H CALLING SUBROUTINE H2/ 
CH2ML = ♦~CH2MS 
♦ EVEN 

y Type message then call routine 
? 

h: t 



QIOWf>C I0*WyBy5»l» » r »<CHlMS»CHlMLf 40> 
BCS ERROR 
HI 

10 ♦ W VB y 5 y 1 J » r y <CH2MS y CH2ML y 40> 
ERROR 
H2 



ERROR : 



CALL 
QIOW*C 
BCS 
CALL 
RETURN 
JMP 
♦ END 



lOFAIL 
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Overlaying Techniques 
SOLUTION 



1 SUBROUTINE H 

2 C 

3 C File LEX6D»FTN 

4 C 

5 C Subroutine for Module 6r Lab Exercises 1-6* 

6 C Illustrete different overl«3ws and their effects* 

7 C 

8 C Type message then call routine 

9 C 

10 TYPE *^'H CALLING SUBROUTINE HI' 

11 CALL HI 

12 TYPE *v'H CALLING SUBROUTINE H2' 

13 CALL H2 

14 RETURN 

15 END 



3 
4 

5 
6 
7 

9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 

24 
25 



♦TITLE HI 
♦I DENT /Ol/ 
♦ENABL LC 

f 

? File LEX6E*MAC 



J Enable lower case 



f Subroutine for Module 6r Lab Exercises 1-6* 

r Illustrate different overlays and their effects* 



♦GLOBL lOFAIL 
♦MCALL aiOW*C 



r Error routine 



r Messai^es 
J 

HI RUN J ♦ASCII /HI RUNNING/ 
HIRUNL ♦ -HI RUN 

♦ EVEN 

? 

r Type inessasJe then return 

y 

HI : t QXOmC lO^WVBfSy 1 1 f y r<HlRUNf HIRUNL r40> 
BCS ERROR 
RETURN 

error: jmp iofail 

♦ END 
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Overlaying Techniques 
SOLUTION 



1 SUBROUTINE HI 

2 C 

3 C File LEX6E»FTN 

4 C 

5 C Subroutine for Module 6f Lsb Exercises 1-6* 

6 C Illustrate different overlays and their effects* 

7 C 

8 C Type messasle then return 

9 C 

10 TYPE *»'H1 RUNNING' 

1 1 RETURN 

12 END 



4 

5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 

23 
24 



♦TITLE H2 
♦IDENT /Ol/ 
♦ ENABL. LC 



f Enable lower case 



f File LEX6F*MAC 

? Subroutine for Module 6r Lab Exercises 1-6* 

f Illustrate different overlays and their effects* 



♦GLOBL lOFAIL 
♦MCALL QIOW*C 



9 Error routine 



? Messages 
f 

H2RUNJ ♦ASCII /H2 RUNNING/ 
H2RUNL *-H2RUN 

♦ EVEN 

jf 

r Type messaiSe then return 
? 

H2:: QIOW*C lO^Wv^BrSylf f yf <H2RUNrH2RUNL»40> 
BCS ERROR 
RETURN 

error: jmp iofail 

♦ END 



1 SUBROUTINE H2 

2 C 

3 C File LEX6F»FTN 

4 C 

5 C Subroutine for Module 6» Lab Exercises 1-6* 

6 C Illustrate different overlays and their effects* 

7 C 

8 C Type message then return 

9 C 

10 TYPE *r'H2 RUNNING' 

11 RETURN 

12 END 
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Overlaying Techniques 
SOLUTION 

Module 6v Lab Exercise 3 

Task -bu i. Id comnnand to build MACR0--11 without overlay 

>L I NK/MAF- L.EX6A f LEXAB y LEX6C r LEX6D y LEX6E > LEX6F f 
->LBttl y 13PR0GSUBS/LIBRARY 



LEX6A 


= MAIN 


LEX6B ■■■■ 

LEX6C 


- G 
= Gl 


LEX6D = 


r. H 


LEX6E " 


= HI 


LEX6F 


= H2 



Module 6r Lab Exercise 3 

Task-build command to build FORTRAN with no overlays 

>l-. INK/MAP LEX6A y LEX6B y LEXAC y LEXAD y LEX6E y LEX6F y 
->LBJCly 1:]F4F-'0TS/L:CBRARY 

LEX6A = MAIN 
LEX6B G 
LEX6C = Gl 
LEX6H H 
LEX6E == HI 
LEX6F H2 
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Overlaying Techniques 



SOLUTION 



t Module 6v Lab Exercise 4 
y 

? »ODU f:i..le for building MACR0~11 with sll disk resident 
V overlays 

♦ROOT LEX6A-PR0GSUBS/LB~*(LEX6B-LEX6C»0VRH) 
OURHt ♦FCTR LEX6D-<LEX6E»LEX6F) 

y 

i LEX6A MAIN 

5 LEX6B ~ G 

? I...EX6C ™ Gl 

? LEX6D ~ H 

? LEX6E = HI 

J LEX6F- H2 

y 

♦ ENB 



5 Module 6v Lab Exercise 4 



? ♦OBL file for buildin*^ FORTRAN with all disk-resident 
9 overlays 

♦ ROOT 
HSEGSJ ♦FCTR 
FLIB: , tFCTR 



LEX6 A-FL IB-* < LEX6B-LEX6C-FL IB y HSEGS ) 

LEX6D-FLIB-<J..EX6E-FLIByLEX6F~FLIB) 

LB:i:iyi:iF4P0TS/LB 



LEX6A 
LEX6B 
LEX6C 
LEXAD 
LEX6E 
LEX6F 



MAIN 
G 

G.t 
H 
HI 
H2 

:nd 



y Module 6r Lab Exercise 5 
y 

y ♦OBL file for MACR0~11 with all iriemory- resident 

? overlays 

r 

♦ ROOT LEX6A~PR0GSUBS/LB-*! ( LEX6B~LEX6C y 0<^RH ) 
□URHt vFCTR LEX6D-! (LEX6EyLEX6F) 

? LEX6A === MAIN 

y LEX6B === G 

y LEX6C Gl 

? LEX6D H 

LEX6E ■= HI 

; LEX6F --^ H2 

♦ END 
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Overlaying Techniques 



SOLUTION 



? Module 6f Lab Exercise 5 
y 

9 ♦DDL file for FOFHRAN with all memory- resident overlay 



HSEGS: 

FLIBJ 

? 



♦ ROOT 
»FCTR 

♦ FCTR 



LEX6A == MAIN 
LEX6B ^ G 
LEX6C 01 
L.EX6D ^- H 
LEX6E HI 
LEX6F :=H2 

♦ END 



I.EXAA--FLIB OK ! ( L.EX6Et~LEX6C-FL IB r HSEGS ) 
LEX6D-FLIB- ! (LEX6E -FLIByLEX6F-FLIB) 
LB:L"lrl3F4P0TS/LB 



? Module 6t Lab Exercise 6 

J ♦ODL file for MACRO-11 with some memory-resident » some 
? disk-resident overlays 

♦ ROOT L.EX6A-PR0GSUBS/LB~* ! < LEX6B-LEX6C r OVRH ) 
OVRHJ a-CTR LEX6ri-<LEX6EyLEX6F) 

L.EX6A --:^MAIN 
LEX6B •••== G 
LEX6C: Gl 
L.EX6D == H 
LEX6E HI 
LEX6F H2 

♦ END 



? Module 6y Lab Exercise 6 



f ♦ODL file for FORTRAN with some disk-resident y some 
y memory- res idetn overlays 

V 

LEX6A-FLIB-* ! ( LEX6B~LEX6C-FLIB y HSEGS ) 
LEX6D™FLIB~(LEX6E-FLIByLEX6F-FLIB) 
LB:i;iyl.-]F4P0TS/LB 



♦ ROOT 
HSEGS J ♦ FCTR 
FLIB: ♦FCTR 



LEX6A = MAIN 
LEX6B G 
LEX6C := Gl 
LEX6D = H 
LEX6E = HI 
LEX6F = H2 

♦ END 
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Overlaying Techniques 



SOLUTION 



Use the map to fill in the following table: 

Type of Starting Virtual Starting Virtual 

Overlay Address of G Address of HI 

No Overlays 

All 

Disk-Resident Answers will vary depending on 

Overlays students' particular solution. 

All 

Memory-Resident 
Overlays 

Disk-Resident 
and Memory- 
Resident 
Overlays 



? Module 6y Lab Exercise 8 

y 

? tODL file in MACRO-11 to place TOTAL in an overlay 
V sefiiTient* 

? All overlays are disk-resident 

♦ROOT MAIN"* ( A- ( JOBlfJOBXX) »Bf TOTAL) 
♦ END 



f Module 6? Lab Exercise 8 
y 

r ♦ODL file in FORTRAN to Place TOTAL in 3n overlay 
y segment* 

f All overlays are disk- resident 

♦ ROOT MAIN-FLIB--*<OURAyB -FLIB»TOTAL~FLIB) 
OMRAJ ♦ FCTR A~FLIB--< JOBI -FLIBm JOBXX -FLIB) 

flib: ♦FCTR lb:i:i»ijf4pots/lb 

♦ END 
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Overlaying Techniques 
SOLUTION 



9. 



3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 

21 
':>'? 



♦TITLE MAIN 
♦IDENT 701/ 
♦ENABL LC 

FILE LEX69A^MAC 



f Enable lower case 
r f EX 



Modified to call RTOTAL to display the runninia yyEX 
total after each call to A ?JEX 

This P'ro^raiTi prints a messas^e and then calls 
subroutine A^ Subroutine A asks whether to perform Job 
1 or Job 2f It then calls either subroutine JOBl or 
J0B2 which performs the Job and displays the results* 
MAIN then calls subroutine B* Subroutine B displays a 
messa<^e and exits* MAIN then calls subroutine A 3 
more tiiriesr keeping a drand total of the operations* 
Finally J- it displays the <2rand total and exits* 

Task-build instructions* Use LEX69A*0DL as the inputrJEX 
file* 

♦ MCALL QIOW*CTEXIT$S!'aiOW*S ? Supplied macros 



23 




*NLIST 


BEX 


r 


Do not list binary 


24 








y 


extensions 


25 




♦ BLKW 


1024**4 


y 


Leave space to make 


26 








y 


segment larger 


27 


MESl X 


♦ASCII 


/THE MAIN 


SEGMENT 


IS RUNNING AND WILL/ 


28 




*ASCII 


/ CALL A/ 






29 




LMES1=--:* 


-MESl 






30 


ms2x 


* ASCI I 


/THE MAIN 


SEGMENT 


WILL NOW CALL B/ 


31 




LMES2 = 


*-MES2 






32 


MES3: 


* ASCI I 


/THE MAIN 


SEGMENT 


WILL NOW CALL A/ 


33 




LMES3 " 


* --MES3 






34 


MES4: 


♦ASCII 


/THE MAIN 


SEGMENT 


WILL NOW CALL TOTAL/ 


35 




LMES4 = 


.--MES4 






36 


MES5: 


♦ASCII 


/THE MAIN 


SEGMENT 


WILL NOW EXIT/ 


37 




LMES5 ~ 


*~MES5 






38 




♦PSECT 


OTHER Dy 


GBL V W y 


RELyRW y PSECT for data 


39 


DPI : 


* WORD 


5 


y 


1st operand 


40 




*UORD 


OP 


y 


address of operation 


41 








y 


in ASCII 


42 


OP 2 J 


*WORri 


2 


y 


2nd operand 


43 


ANSJ 


*BLKW 


I 


y 


Answer to operation 


44 












45 




*PSECT 




y 


Back to blank PSECT 


46 




*E<^EN 




y 


Move to word boundary 


47 


TOT** X 


* WORD 





y 


Total 


48 


OP X X 


*BLKB 


1 


y 


Operand in ASCII 


49 




*E<^EN 




y 


Move to word boundary 



50 
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SOLUTION 



51 
52 
53 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 



START? QIOW$C 10 ♦ WVB 5 r 1 y » » ? 
CALL A 



CALL 



R TOTAL 



Q10W*C lO^WMBi-Sply » y r 
CALL B 
r Set UP for loop 



MOM 



*3yR4 



LOOP? Q.TOW*C I0«WVBy5yly y y y 
CLR ANS 



CALL 
CALL 



SOB 



A 

RTOTAL 



R4 y LOOP 



QIOW*G lO^WVBySyly y y y 
CALL TOTAL 

QlOWfC lO^WVBySyl y y y y 

EXIT*S 

♦END START 



::MESlyLMESly40> yWrite MESl 
y Call subroutine A 

y Call routine to yJEX 

y displ3w runnin.^ yyEX 

y total y y EX 

:MES2yLMES2y40> y Write MES2 
y C<3ll subroutine B 

y Counter 

::MES3yLMES3y40> ? Write MES3 
y Cle3r answer in case 
y of no operation 
y Call subroutine A 
y Call routine to JyEX 
y display running yyEX 
y total y yEX 

y DecreiTient counter and 
y loop back until done 

:«ES4yLMES4y40> > Write HES4 
y Call routine to 
y display strand total 

:MES5yLMES5y40> y Write MES5 
J Exit 



1 PROGRAM MAIN 

2 C 

3 C FILE LEX69A»FTN HEX 

4 C 

5 C Modified to call RTOTAL to display the running ! ! EX 

6 C t^fter each call to A ! ! EX 

7 C 

8 C This prosSram prints a messajae and then calls subroutine 

9 C A* Subroutine A asks whether to perforin Job 1 or viob 2*F'' 

10 C It then calls either subroutine JOBl or J0B2 which 

11 C performs the operation and displays the results* MAIN 

12 C then calls subroutine B which displays a messasJe* MAIN 

13 C then calls subroutine A 3 more timesy keeping a .^rand 

14 C total of the operations* Final lyy it displays the 

15 C s5 r a n d t o t a 1 a n d e x i t s ♦ 

16 C 

17 C Task -build instructions* Use LEX69A»0DL as the inputl'EX 
IS C file for RTOTAL in the root* Use LEX69B*0DL as the MEX 

19 C input file for RTOTAL in the best overlay segment HEX 

20 C 



77 



Overlaying Techniques 



SOLUTION 



COMPLEX DUMMY (1024) ! Leave space to make 

! se.^inerit larrJer 
COMMON /0THER/0PJ.r0Py0P2yANS 
INTEGEF? 0Ply0Py0P2!'ANS 
DATA 0P.1. i'0P2/5y2/ 



COMMON /TOTCOM/TOT 
INTEGER' TOT 



! Total 



TYPE *y'THE MAIN SEGMENT IS RUNNING AND WILL 
ICALL A' 
CALL A 
CALL RTOTAL 



TYPE *y'THE MAIN 
CALL B 

DO IOj- I==1 y3 
TYPE *i-'THE MAIN 
ANG ~ 

CALL A 
CALL RTOTAL 



TYPE *y 'THE MAIN 
CALL TOTAL (TOT) 

TYPE *y'THE MAIN 

CALL EXIT 

END 



Call subroutine A 
Call subroutine HEX 
RTOTAL to display! !EX 
running total ! ! EX 
SEGMENT WILL NOW CALL B' 

! Call subroutine B 

SEGMENT WILL NOW CALL A' 

Clear answer in case 

of no operation 
Call subroutine A 
Call subroutine ! ! EX 
RTOTAL to display! !EX 
the running total!! EX 
SEGMENT WILL CALL TOTAL' 
! Call routine to 
! display arand total 
SEGMENT WILL NOW EXIT' 
! EXIT 
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1 




♦TITLE 


RTOTAL 








2 




♦I DENT 


/Ol/ 








3 




♦ENABL 


LC 




y 


Enable lower case 


4 

5 


f 
f 


FILE LEX69B»MAC 








6 
7 


i 
f 


Subroutine to 


print the 


runnin?.^ 


total 


8 
9 


f 


♦ MCALL 


aiow*s 




? 


External system macros 


10 




♦NLIST 


BEX 




? 


Do not list binary 


11 










f 


extensions 


12 


rtofmt: .asciz 


/THE TOTAL 


SO 


FAR 


IS %D*/ JFormat strin*3 


13 


RTOTBFJ tBLKB 


100* 




? 


Output buffer 


14 




♦ EVEN 










15 




♦NLIST 


BEX 




} 


List binary extensions 


16 














17 


rtotal: :mov 


♦RT0TBF.»R0 




y 


Set UP for *EDMSG 


18 




MOV 


#RT0FMT»R1 








19 




MDV 


*T0T»R2 




y 




20 




CALL 


*EliMSG 




y 


Edit message 


21 




aiow*s 


♦lO^WVBytSy*! y 


y y y • 


::#RT0TBFrRly*40> 


22 










y 


Print it 



'?3 
24 



RETURN 
♦ END 



1 SUBROUTINE RTOTAL 

2 C 

3 C FILE LEX69B»FTN 

4 C 

5 C Subroutine to print the running total 

6 C 



7 COMMON /TOTCOM/TOT 

8 INTEGER TOT 

9 TYPE 5>T0T 

10 5 FORMATC THE TOTAL SO FAR IS' y I4»'*') 

11 RETURN 

12 END 



f Module 6f Lab Exercise 9 
? 

J ♦ODL file in MACRO-llr placinsi RTOTAL in the root 

? sesfment for testin:^ 

? All overlays are memory-- resident 

♦ ROOT LEX69A ■•LEX69B-* ! (A- ! < JOBl y JOBXX ) yBy TOTAL ) 
P LEX69A MAIN modified to call RTOTAL 

y LEX69B ==•= RTOTAL 

♦ END 
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Overlaying Techniques 
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? Module 6y Lab Exeircise 9 
» 

? ♦OiiL fil& in FORTRAN j» pi acinic RTOTAL. in the root 

? sesimerft for testing 

P All ove?rlaws are iTiemory-resident 

♦ ROOT LEX69A -LEX69r:i-FLIB-)K ! (OVRAyOMRByTOTAL-FLIB) 
□WA: ♦FCTR A-FLIB"! <JOBl-FLIBy JOBXX-FLIB) 

OVRBJ J-CTR B-FLIB 

FLIB: ♦FCTR LBn:irl3F4P0TS/LB 

? 

f LEX69A := MAIN modified to call RTOTAL 

y LEX69B =^ RTOTAL 

? 

♦ END 



f Module 6r Lab Exercise 9 
? 

9 ♦ODL file in MACRO-lly placin;.^ RTOTAL in the best 

y overlay sei-^ment 

? All overlaps are ffiemorw -resident 

♦ ROOT LEX69A ! ( A-LEX69B- ! ( JOBl y JOBXX ) y B y TOTAL ) 

y LEX69A •== MAIN modified to call RTOTAL 

y LEX69B RTOTAL 



y Module 6y Lab Exercise 9 
? 

y ♦OBL file in FORTRAN y placing RTOTAL in the best 
y overlay segment 

y All overlays are memorw-resident 

♦ ROOT LEX69A-FLIB -* ! ( OVRA y OMRBy OVRC ) 
OVRAJ ♦FCTR A-LEX69B-FLiB-! < JOBl-FLIBy JOBXX-FLIB) 
OVRB: ♦FCTR B-FLIB 
OVRC: ♦FCTR TOTAL -FL IB 
FLIB t ♦ FCTR LB : L 1 y 1 :.1F4P0TS/LB 



y LEX69A MAIN modified to call 

y LEX69B RTOTAL 

y 

♦ END 



RTOTAL 
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static Regions 



TEST/EXERCISE 



Create an initialized resident common (size: 32(10) blocks 
1024(10) words, contents: 25(10) in each word). Check with 
your course administrator to find out where to place the 
common type partition. Write two tasks, one that modifies all 
values in the common, and one that reads the values and 
displays them. 

Create a resident library using the supplied FORTRAN callable 
subroutines AADD, SUBB, MULL and DIVV (all in LIB. MAC ) . Write 
a task that calls one or more of the routines. For example, 
write a task that asks for four numbers (A, B, C, and D) and 
then computes and displays (A * B) + (C * D) = answer. 
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static Regions 



SOLUTION 



♦TITLE LEX71A 
♦I DENT 701/ 

»ENABL. LC f Enable lower case 

f 

File L.EX71A»MAC 



F'ro£{r3nfi which creates and initialises a common region 
which will be rc^ferenced usin^ overlaid Psects* 

Size 1024* wordsr contents all 25^5 

Task-build instruct ions J Must include /SHAREABLE: COMMON 
and /NOHEADER switches? STACK=0 and PAR=COMWP options* 
Must create ♦STB file* May be /CODEU-'IC or absolute 
(default) ♦ 



The code is placed in a Psect named MYDATA 



♦ PSECT MYliATA DyGBL 
♦REPT 1024* 

. WORD 25 ♦ 

♦ ENDR 

♦ END 



OUR ? Defaults RELrRW 
; Repeat count 
; Word of 25(10) 
r End repeat ran^e 



BLOCK DATA LEX71A 
File LEX71A«FTN 

Program to create and initialise a resident common 

Size is 1024 wordsi- initialized with all 25''s 

Task-build instruct ions J Must include /SHAREABLE* COMMON 
and /NOHEADER switches? STACK=0 and PAR=COMWP options* 
Must create ♦STB file* May be /CODE J PIC or absolute 
(the default) ♦ OTS library NOT required* 

COMMON /MYDATA/ 1(1024) 

DATA I /1024*25/ 

END 
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static Regions 



SOLUTION 



1 ♦TITLE LEX7.1.B 

2 ♦.I.DENT /Ol/ 

3 ♦ E N A B L I... C y E n a b 1 e 1 o w e r c 3 s e 
A ?f 

5 ? FILE LEX7:LB,MAC 

6 Y 

7 y This task dec rem tents the values in the static camirion 

8 ? re?.{ion LEX71A* It uses the technique of overlaid F" sects 

9 r to reference the resfiion* 
.1.0 ? 

11 y Task-bui Id instructions* 



12 ? 

13 y .>LINK/MAFVOPTION LEX71B 

14 y Option? RESC0M='=LEX71A/RW 

15 y Option? <RET> 

16 9- 

17 tMCALL aiOW*SyEXIT$S y System macros 

18 oPSECT MYDATA DyGBLyO'v'R y Psect used in COMWP 

19 M"=4 y local symbol for start 

20 y of rest ion 

21 ♦PSECT y Back to blank Psect 

22 lOSBJ ♦BLKW 2 y I/O status block 

23 ARGJ ♦BLKW 1 y Arsiument block for 

24 y error code 

25 BUFF? .BLKB 100* 5 Output buffer 

26 FERRlt ♦ASCIZ /DIR ERROR ON QIO, CODE ••==•• %D/ y Directive 

27 y error messas.{e 

28 FERR2: ♦ASCIZ ! I./0 ERROR ON 010* CODE ~-= %D ! y I/O error 

29 y messasje 

30 DONE J ♦ASCII /LEX71B HAS MODIFIED THE VALUES/ 5 Done 

31 ♦ASCII / IN THE COMMON LEX71A/ ? messaisSe 

32 LDONE ^♦••••DONE 

3 3 W "= 1 2 4 ♦ y W o r d c o u ri t i n r e i o n 

34 ♦EVEN 

35 y 

36 start: MOy #MyR2 y Start in*-1 addr of data 

37 y in the res^ion 

38 MOM #WyR'5 y Loop count 

39 LOOP? DEC <R2)4- y Decrement value 

40 SOB RSyLOOP y Loop back if not done 

41 aiOW$S *I0^WVBy*5y#ly y#IOSBy y<#D0NEy#LD0NEy*40.> 

42 BCS ERROR y Check for dir error 

43 TSTB 10 SB i Check for I/O error 

44 BLT ERRORl y Branch on I/O error 

45 EXIT$S y Exit 

46 y Error code 

47 ERROR t MOV $DSUIyARG y Move DSW to Brsi block 

48 MOM #FERRlyRl y Addr of format strinti 

49 BR SETUP y Branch to $EDMSG code 
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SOLUTION 



50 
51 
52 
53 
54 
55 
56 
57 
58 
59 
60 



setup: 



MOM 

MOM 

MOM 

MOM 

CALL 

Q10W*S 

EXIT$S 
♦ END 



lOSBfRO 
ROy ARG 



#FERR2yRl 
♦BUFFyRO 
#ARG y R2 
$EDMSG 

# 1 ♦ WMB y #5 y # 1 y y y y <#BUFF y R 1 y #40 



EKtend sisin on I/O 
status and place in 
arsi block 

of f o r iTi a t s t r i n 
o f o u t p u t b u f f G 
o f a r d u in e n t b 1 o c I 
messasfe 

Write 



Addr 
Addr 
Addr 
Edit 



y Exit 



START 



1 




•"> 


C 


z 

4 


C 
C 


5 
6 


C 
C 


7 


C 


8 
9 


C 

c 


10 


c 


11 


c 


12 


c 


13 


c 


14 


c 


15 
16 


c 


17 


c 


18 




19 




20 


5 


21 




':>':> 


1 


23 




24 




25 





PROGRAM LEX71B 
File LEX71B*FTN 

Task to dec reiTient each word in the static common 
resJion LEX71A* It uses a COMMON to reference 
the data* 

Task-bui Id instructions : 

LINK/MAP/OPTION LEX71B y LB : C 1 y 1 3F0R0TS/LIBRARY 
Option? RESC0M=:=LEX71A/RW 
Option? <RET> 

COMMON /MYDATA/ L(1024)! Common to reference 

! shared region 

Decrement values 

DO 5 K:=lyl024 

L<K)=L(K)--1 

CONTINUE 

WRITE (5yl0) ! Display done messas^e 

) FORMAT ( ' LEX71B HAS MODIFIED THE MALUES IN THE 

1 COMMON LEX71A') 
CALL EXIT 
END 
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static Regions 



SOLUTION 



♦ TITLE L.EX7:lC 
♦I DENT /Ol/ 
♦ENABL LC 



y Enable lower C3i5e 



6 
7 
(3 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
3(3 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 



J FILE LEX71C«MAC 
y 

y This task dets the values from the static cammon 

y resSion LEX71A* It uses the techniaue of overlaid Psects 

y to reference the rer^ion* 

y 

y T a s k ~ b u i 1 d i n s t r u c t i o n s J 
y 

y >LINK/MAP/fJPTION LEX71C 

y Opt i on? RESC0M::=-LEX71 A/RO 

y Option? <RET> 



lOSBt 
ARGJ 

BUFF : 

fmt: 

FERRl : 
FERR2 : 



start: 



MCALL 
PSECT 



♦PSECT 

♦ BLKW 

♦ BLKW 

♦ BLKB 
♦ASCIZ 

♦ ASCIZ 

♦ASCIZ 

N=::128, 

♦ EUEN 
MOV 



MOV 

loop: MOV 
MOV 
CALL 
QIOW$S 
BCS 
TSTB 
BLT 

y Stay here for 
SOB 

EXIT$S 



QIOW$SyEXIT$S 
MYBATA DyGBLyOVR 



100* 
/%8D/ 

/DIR ERROR 
!I/0 ERROR 



S w s t e m in a c r o s 
Psect used in COMUIF-' 
y local symbol for start 
y of resJion 
y Back to blank Psect 
y I/O status block 
y ArsSument block for 
y error code 
y Output buffer 
y Format strinsJ for 
y output of data 
ON 010 ♦ nSW =~ %D/ y Directive 

y error messasJe 
ON 010* CODE = XD! ? I/O error 
y messaste 

y Loop count ••• 128^ linesy 
y 8 #s per line 



*MyR2 

*NyR5 
*BUFFyR0 
♦FMTyRl 
$EDMSO 

#I0»WVBy#5y*l 

ERROR 

lOSB 

ERROR 1 

.^ood write 

RSyLOOP 



y Starting addr of data 

y in the re.^ion 

y Loop count 

y u t p u t b u f f e r 

y Format strinss 

y Edit message 
y y # I OSB y y <*BUFF y R 1 y #40> 

y Check f o r d i r e r o 

y Check for I/O error 

y Branch on I/O error 

y Decrement counter y loop 

y back if not yet done 

y E;;it 
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static Regions 



SOLUTION 



51 
52 
53 
54 
55 
56 
57 
58 
59 
60 
6.1. 
62 
63 
64 



5 Error code 

error: MOU 

MOV 
BR 

ERROR i: MOVB 



SETUP i 



Moy 

MOV 
MOV 
CALL 
a.TOW*S 

EXIT$S 
♦ END 



*DSWx ARG 
#FERR1 yR:l. 
SETUP 
lOSByRO 
RO y ARG 

#FERR2!'R1 
♦BUFF y RO 
#ARG 9 R2 
$EDMSG 

#.T0,WVBy#5y#l 



START 



Move DSW to arst block 
Addr of format str.iri^ 
Branch to $EDMSG code 
EK'tend si sin on 1/0 

status and place in 

Br si block 
Addr of format strin.«< 
Addr of output buffer 
Addr of argument block 
Edit messa<de 
:*BUFF y R 1 y #40;> y W r i t e 

messasfJe 
Exit 



1 

2 


C 


3 
4 



C 


5 


C 


6 


c: 


7 


c 


8 


c 


9 


c 


10 


c 


11 


c 


12 


c 


13 


c 


14 


c 


15 




16 


c 


17 


c 


18 




19 




20 


10 


21 


50 


22 




23 





PROGRAM LEX71C 
File LEX71C,FTN 

Task to read data from the static common region LEX71A 
and print it out at TI*» It uses a COMMON to reference 
the data* 

Task-build instructions * 

LINK/MAP/OPTION LEX71C y LB J C 1 y 1 3F0R0TS/LIBRARY 
Option? RESC0M---LEX71A/R0 
Option? <RET.> 

COMMON ./MYDATA/ L(1024)! Common to reference 

• shared re.^ion 

Loop throu.^h to display region y 8 numbers on a line 
DO 50 J ■= Iyl024y8 

WRITE (5yl0.> (L(K) yK-=Jy J+7) ! Write values 
FORMAT (' 'yI2y7I8) 
CONTINUE 
CALL EXIT 
END 
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static Regions 



SOLUTION 



2. 



3 
4 

6 
7 

e 

9 

11 

12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 



♦TITLE LEX72 
. I DENT 701/ 

♦ENABL LC y Enable lower C3se 

File LEX72*hAC 

Solution to Module 7f Lab Exercise 2 

Task computes sum of products usin^ resident library 
routines. 

Assembly and task build instructions* 

MACRO/LIST LBJClylJPR0GMACS/LIBrdevJ[;ufd3LEX72 
LINK/MAP/OPTIONS LEX72 > LB : C 1 » 1 DPROGSUBS/LIB 
Option? RESLIB:=LIB/RO 

♦ MCALL QIOW*s-QIOW$SraiOW*CyDIR$rEXIT*S 

♦ MCALL D .T RERR y I OERR 

♦GLOBL *CDTBy$EDMS6 ? Routines in SYSLIB 
♦GLOBL MULLyAADD y Routines in library LIB 



y Mess 
HDRMS : 

HDRML 
APRMT i 
PL EN 



♦ASCII 
♦ASCII 
■■■■■■■■ ♦-HI.iRMS 
♦ASCII 
♦ - APRMT 



/TASK WILL COMPUTE ( A*B ) + < C*D ) /<15><12> 
/ENTER NUMBERS IN DECIMAL ♦/ 



/ENTER A J / 



Length of prompt 
(assumed to be all 
same lensJth) 



the 



bprmt: 
cprmt: 

DPRMTJ 



♦ASCII 
♦ASCII 
♦ASCII 



y ASCII buffers 



ASCAJ 
ASCBJ 

Ascc: 
ascd: 

OUTBUFJ 



♦ BLKB 

♦ BLKB 

♦ BLKB 

♦ BLKB 

♦ BLKB 



/ENTER B: 
/ENTER C: 
/ENTER D: 



7 
7 
7 
7 

80 ♦ 



y ASCII for A's value 

y Same for B 

? C 

y D 



y *EDMSG format string 

edmfmt: ♦asciz //!:n<%va * %va) + (%va * %va) 

♦ EVEN 

y FORTRAN-compatible argument blocks* 
MULARGJ ♦WORD 3 y For MUL 

♦WORD Ml 

. WORD M2 

♦WORD MULRES 



%D/ 
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static Regions 



SOLUTION 



1 


ADDARGJ 


♦ word 


3 


y For ADD 


52 




♦ WORD 


MURESl 


y First MUL result 


53 




♦ WORD 


MULRES 


y Second result 


crcr 




♦ WORD 


GRTOT 


y Grand total 


»JO 


? ASCII 


buffer 


table* Initially each entry in this table 


\J / 


¥ consists of 


the address of a 


prompt strinfi followed by 




9 the address 


of the buffer to 


store the input* After a 


»j V 


y str;i.n<3 is input y however y the 


prompt strinsJ address is 


AO 


? replaced by 


the len.<^th of the 


input strinsJ* This 


(J X 


? tah 1 e 


y with 


the addition of the final value GRTOTy then 


O a'. 


y serve 


s as the $EDMSG ari-iuinent 


block* 


63 


FDMARG I 

i»< JU* 1 i n I \ w T 








64 


APTRL t 


* WORD 


APRMTyASCA 




65 




* WORD 


BPRMTyASCB 




66 


CDTBL ♦ 


* WORD 


CPRMTyASCC 




67 




.WORD 


DPRMTyASCD 




yf. O 

Oo 




* WORD 




y Grand total (numeric 


69 








y value is inserted 


70 








y directly into $EDMSG 










y block) 


72 










77 

/ %rj 


? other 


numeric values 




7,d 


Ml t 


. WORD 




y First MUL ariSument 


7S 


M2J 


* WORD 




y Second MUL ar<^ument 


/ o 


MURESl : 


♦ WORD 




y First MUL result 


"7 "7 

/ / 


MULRES: 


♦ WORD 




y MUL result 


7P 










70 


rdprmt: 


QIOW* 


I0»RPRy5yly ylOSBy y<y7y y yPLENy 


a\} 


iosb: 


.BLKW 


2 




u .L 

82 
83 










? Code 








84 










85 


start: 


QIOW$C 


I0*WVBy5yl y y y y< 


HDRMSyHDRMLy40> y Identify 


86 




MOV 


♦Ml yR5 


y R5 => location to store 


87 








y binary input values 


88 




MO"^ 


♦RDPRMT yR4 


y R4 => " read with 


89 








y prompt" DPB 


90 




MOV 


♦ABTBLyR3 


y R3 ~> ASCII buffer table 


91 




CALL. 


GETINP 


y Get A 


92 




CALL. 


GETINP 


y Get B 


93 




MOV 


♦MULARGyRS 


y R5 ~:> MUL ard block 


94 




CALL 


MULL 


y Do first multiply 


95 




MOV 


MULRES y MURESl 


y Save result 


96 




MOV 


♦Ml yR5 


y Reset registers 


97 




MOV 


♦RDPRMT y R4 


y (FORTRAN callinsJ 


98 




MOV 


♦CDTBL yR3 


y convention does not 



99 
100 



sfuarantee they are 
preserved ♦ > 
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static Regions 



SOLUTION 

101 CALL. GET I NP J Get C 

102 CALL GETINP ? Get D 

103 MOM #MULARGyR5 

104 CALL MULL > Do second iTiultiplw 

105 MOV #ADDARGyR5 

106 CALL AADD ? Add nriul tipl ication 

107 f results 

108 MOV #OUTBUFyRO ? Prepare 

109 MOV #EDMFMT»R1 ? for 

110 MOV #EDMARG»R2 ? *EDMSG 

111 CALL *EriMSG 

112 QIOW*S tlO^WVEytSi-tly r » ^<#0UTBUFfRl»*40> 
113 BCS lODER 

114 EXIT$S 
115 

116 y Subroutine GETINP to Set input values* 

117 ? 

118 r Input J R5 -> location to store binary result 

119 ? R4 => QIO riPB 

120 ? R3 => Address of prompt stringy 

121 y followed by address to store 

122 y ASCII input 

123 y 

124 y Output* R5 input value +2 

125 y R4 Unchanged 

126 y R3 ~ input value +4* Location formerly 

127 y containinsJ address of prompt now 

128 y contains length of input 

129 y 

130 GETINP J MOV ( R3 ) + y Q ♦ IOPL+6 ( R4 ) y Load prompt address 

131 MOV (R3)+yR0 y RO => input buffer 

132 MOV R0yQ*I0PL(R4) ? Copy to QIO DPB 

133 DIR$ R4 } Get input 

134 BCS lODER y Directive error 

135 CMPB IOSBy#IS»SUC ? I/O successful? 

136 BNE lOIOER ? No 

137 MOV I0SB+2y~4<R3) f Save input len.^th 

138 CALL *CDTB ? Convert to binary 

139 MOV Rly<R5)+ f Store binary 

140 RETURN 
141 

142 y Error mess3.^es* 

143 I ODER: DIRERR <ERROR ON QIOW*> 

144 IOIOER: IOERR #IOSBy<ERROR ON QIOW*> 

145 ^ErND START 
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static Regions 



SOLUTION 



1 




':> 


C+ 


3 
4 


C 
C 


5 


C 


A 
(J 


C 


7 


c 


8 


c 


9 


c 


10 


c 


11 


c 


12 


c 


.13 


c 


14 


c- 


15 




16 


c 


17 




18 




19 


c 


20 




21 


5 


22 




23 


c 


24 


15 


25 


25 


26 




27 




28 




29 




30 




31 




32 




33 




34 




35 




36 




37 




38 


35 


39 




40 





PROGRAM LEX72 
File LEX72*FTN 

Solution to Module 7r Lab Exercise 2 

Task computes sum of products usind resident library 
routines ♦ 

Task build instructions* 

L INK/MAF'/OPT 1 ONS LEX72 r LB J C 1 » 1 3F4P0TS/L IB 
Option? RESLIB=LIB/RO 

I NTEGER A y B » CMi » MURES 1 r MURES2 y 6RTQT 
ASCII bytes to make promptin<S code cleaner 
BYTE ASCA,ASCBrASCCf ASCD 

DATA ASCA 9 ASCB y ASCC .» ASCD/ ' A ' » ' B ' » ' C ' f ' D ' / 

TYPE 5 

FORMAT (' TASK WILL COMPUTE ( A*B ) + ( C*n ) ' / 
1 ' ENTER NUMBERS IN DECIMAL*') 
FORMAT statements us€?d repeatedly below* 
FORMAT ('CENTER 'yAl»': ') 
FORMAT (16) 



TYPE 15 y ASCA 
ACCEPT 25 J A 
TYPE 15»ASCB 
ACCEPT 25 rB 
CALL MULL<AyBrMURESl) 
TYPE 15 f ASCC 
ACCEPT 25, C 
TYPE 15 y ASCD 
ACCEPT 25 5- D 
CALL MULL<C!'DrMURES2) 
CALL AADD<MURESlyMURES2»GRT0T) ! GRTOT = sum 
TYPE 35 r A^ByCrDy GRTOT 

FORMAT (' ('yI6y' * ',16,') + ('yI6y' * 'yI6y') = 'yI6) 

CALL EXIT 

END 



Prompt for 

and input A 
Prompt for 

and input B 
MURESl = A*B 
Prompt for 

and input C 
Prompt for 

and input D 
MURES2 = C*D 
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Dynamic Regions 



TEST/EXERCISE 



Referring to Exercise 1 of Module 7 (Static Regions) , modify 
the tasks that reference the common so that they both map to 
the common dynamically using the memory management directives. 

Write a task that creates a dynamic region two blocks long, 
fills it with a character typed in at the terminal, and leaves 
it in existence on exit. Write a second task that modifies 
one value in the region, then displays all the values in the 
region at the terminal, and finally deletes the region. 

Modify SNDREF so that it sends the region by reference to a 

second receiver task, in addition to RCVREF. Write the second 

receiver task, which should modify values in the region and 

then display the values in the region at the terminal. 
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Dynamic Regions 
SOLUTION 



1. 



6 
7 
8 
9 
10 
11 
12 
1:5 
14 

15 
16 

17 
19 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 

30 
31 

33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 



♦TITLE 
♦I DENT 
♦ENABL 



LEX81B 
/Ol/ 
LC 



f Enable lower case 
File L.EX81B»MAC 

LEX71B modified to use memory manaaement directives 

Program to attach to the existin.^ region LEX71Af create 
a virtual address window (mapped on creation) r decrement 
all values in the region by It detach from the region 
and e^it* 

Assemble and task-build instructions? 

>HACRO/LIST LBJCl yi:iPR0G«ACS/LIBRARYrdev:Cufd3LEX81B 
>LINK/HAP/OPTION LEX81B > LB : C 1 » 1 3PR0GSUBS/LIBRARY 
>Option? WNDWS-1 
>Option? <RET> 



♦MCALL EXIT*SrRDBBK*»WDBBK*>ATRG$C ? System 
♦MCALL CRAW*ynTRG$SyDIR*rQIOU*S f macros 
♦MCALL DIRERR y lOERR r Supplied macros 
RDBBK* 32^ >LEX71Ai'LEX71Ay -^RS^WRTIRS.RErf^- 
Define region witht 

Size = 32* <32^ word blocks) 

Name = LEX71A 

Partition - LEX71A 

Attach with read and write access 

CRAW* WDB rBPB for create address window 

WBBBK* 7 y 32 ♦ » T r 32 ♦ » <WS ♦ MAP ! WS ♦ RED ! WS ♦ URT> 
Define window with* 



rdb: 



win: 

WDB : 



iosb: 
w 

DONE t 
LDONE 

start: 



APR 
£>ize 
Offset 
Length 
Map on 



in red ion = 
in region = 
create with 



7 

32* <32» word blocks) 
(32^ word blocks) 
32 ♦ <32» word blocks) 
read and write access 



♦ BLKW 

==1024* 

♦ASCII 

♦ASCII 

=»~DONE 

ATRG$C 

BCS 

MOy 

DIR$ 
BCS 



2 ? I/O status block 

f ♦ of words in resfion 
/LEX81B HAS MODIFIED THE VALUES/ ? Done 
/ IN LEX71A/ f messai^e 



RDB 
ERRl 

RDB+R ♦ 6 1 D y WDB f W ♦ NR I D 

#WIN 

ERR2 



y Attach to region 
y Check for error 

Move resfion 
i into WDB 
Create window 
Check for error 



ID 
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Dynamic Regions 



SOLUTION 



55.1 




MOV 


#160000 


yR2 ? Set base 3ddr in rei-Jion 


52 




MOM 


#W yRS 


i Get word count 


53 


loop: 


DEC 


<R2) + 


? Decrement value 


54 




SOB 


RSxLOOP 


f Loop until done 


55 




Q.TOW$S 


#IO»WVB 


y*5»*l y y*IOSB» »<#D0NE»*LD0N£y#40> 


56 








> Write done messade 


57 




BCS 


ERR3n 


? Check for dir error 


5i3 




TSTB 


lOSB 


f Check for I/O error 


59 




BLT 


ERR3I 


5 Branch on error 


60 




DTRG*S 


#RDB 


? Detach from region 


61 




BCS 


ERR4 


r Check for error 


62 




EXIT*S 






63 


? Error 


hsndl ind 


; code 




64 


ERR! t 


DIRERR 


<ERROR 


ATTACHING TO REGIONS- 


65 


ERR2: 


niRERR 


<ERROR 


CREATING WINDOW AND MAPPING> 


66 


ERR3DJ 


DIRERR 


<ERROR 


WRITING DONE MESSAGES 


67 


ERR3I : 


IDERR 


#IOSBs-< 


ERROR WRITING DONE MESSAGES- 


68 


ERR4 : 


DIRERR 


<ERROR 


DETACHING FROM REGIONS- 


69 




♦ END 


START 





1 




2 


C 


3 


C 


4 


C 


5 


C 


6 


c: 


7 


c 


Q 


c 


9 


c 


10 


c 


11 


c 


1 2 


c 


13 


c 


14 


c 


15 


c 


16 




17 


c 


18 




19 


c 


20 


c 


21 


c 


22 


c 


23 


c 


24 


c 


25 


c 


26 


c 


27 




28 





PROGRAM LEXeiB 
File L.EX81B»FTN 

LEX71E< modified to use memory management directives 

ProsSram to attach region L.E.X71A in partition LEX71A 
create a window and map it to the region upon creations 
decrement each value in the re.^ion bw 1? and detach 
from it 

Task-build with these options* 

VSECT-DATA J 160000 : 20000 
WNDWS:=1 

I NTEGER RDB (&) r WDB ( S ) 
This common block will ali:3n with the address window 

COMMON /DATA/IDATA(1024) 
RDB ~ Pension definition block with the followin.^ 
properties * 

Size 32 (10) (32 ♦•-word blocks) 

Name LEX71A 

Partition LEX71A 

P ro tec t i on WO : none y S Y I RWED f OW I RWED y GR t RWED 

Attach with read and write access 
Initialize the RDB 

DATA RDB /0y32y3RLEXy3R71Ay3RLEXy3R71Ay "3y 
1" 170000/ 
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Dynamic Regions 



SOLUTION 



29 C WDB Window definition block with the following properties* 

30 C APR 7 

3.1 C Si::e 32 (10) (32»~word blocks) 

32 C Offset in res^ion (32* -word blocks) 

33 C Len<^th of window 32 (10) (32 ♦-word blocks) 

34 C Map on create with read and write access 

35 C Initialize the WDB 

36 DATA WDB / " 3400 y y 32 » ^ y 32 y * 203 y 0/ 

37 C 

38 C Attach ression 

39 CALL ATRG (RDBylDS) 

40 C Check for error on attach 

41 IF (IDS .LT» 0) GOTO 100 

42 C Move re.<^ion id to WDB 

43 WDB(4)=RDB(1) 

44 C Create and map window 

45 CALL CRAW ( WDB r IDS) 
4<f> C Check for error 

47 IF (IDS ♦LT* 0) GOTO 200 

48 C Decrement values 

49 DO 50 K=lrl024 

50 IDATA(K)=IDATA(K)~1 

51 50 CONTINUE 

52 C Detach from region and delete it 

53 CALL DTRG (RDBrlDS) 

54 C Check for error 

55 IF (IDS ♦LT* 0) GOTO 300 

56 C And Jump to exit 

57 WRITE (5*60) 

58 60 FORMAT ( ' LEX81B HAS MODIFIED THE VALUES IN 

59 1 THE COMMON LEX71A') 

60 GOTO 500 

61 C 

62 C Error messages 

63 100 WRITE (5x101) IDS 

64 101 FORMAT ( ' ERROR ATTACHING TO REGION^ DSW ='yI4) 

65 GOTO 500 

66 200 WRITE (5y201) IDS 

67 201 FORMAT (' ERROR IN CREATING WINDOWy DSW ='yI4) 

68 GOTO 500 

69 300 WRITE (5y301) IDS 

70 301 FORMAT (' ERROR DETACHING FROM REGIONy DSW ='yI4) 

71 C 

72 500 CALL EXIT 

73 END 
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Dynamic Regions 
SOLUTION 



6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 

20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 



♦TITLE 
♦ IliENT 
♦ENABL 



LEX81C 
/Ol/ 
LC 



y Enable lower case 
File LEX81C»MAC 

LEX71C iTiodified to use meiriory iriana^ement directives 

Pro<3rairi to attach to an existinis re^ioru' create a 
virtual address window (maPF'ed on creation) read 
ASCII data from the re^ionr detach from the resfion 
and exit* 

Assemble and task -build instructions* 

>MACRO/LIST LB J CI y 1 3PF?0GMACS/LIBRARY » dev I Cuf dJLEXBlC 
>LINK/MAP/OPTION LEXSlCr LBJCl /13PR0GSUBS/LIBRARY 
^Option? WNriWS==l 
>Option? <RET> 



RDBJ 



win: 
udb: 



iosb: 
ARG : 

buff: 
fmt: 



start: 



♦MCALL 
♦MCALL 
♦MCALL 
RDBBK* 
Define 



CRAW* 

WriBBK* 

Define 



EXI T*S y RDBBK* ? WBBBK* y ATRG*C 
CRAW$ y DTRG*S y DIR* y OIOW*G 
D I RERR y I OERR y Sufp 1 i ed 
32 ♦ y LEX71 A y LEX71 A y RS ♦ RED 
reiSion with* 
Size = 32* (32* 

Name = LEX71A 

Partition == LEX71A 

Attach with read access 



WDB yDPB for create address 

7 y 32 ♦ y y y 32 ♦ y <WS ♦ MAP ! WS ♦ RED> 
window with: 
APR 

Size = 
Offset in region - 
Length in re:aion •"" 
Map on create with 



y System 
y macros 
macros 



word blocks) 



window 



7 

32 ♦ <32» word blocks) 
(32* word blocks) 
32* (32» word blocks) 
read access 



♦ BLKW 

♦ BLKW 

♦ BLKB 
♦ASCIZ 
N=128* 

♦ EMEN 
ATRG$C 
BCS 
MOV 

DIR* 



100* 

/xm/ 



RDB 
ERRl 



y I/O status block 

y Argument block for 

y error code 

y Output buffer 

y Format strinsJ 

y Loop count 

y Attach to reslion 

y Check for error 



RDB+R ♦ G I D y WDB+ W ♦ NR I D 



#WIN 



y Move resJion ID 
y into WDB 
y Create window 



98 



Dynamic Regions 
SOLUTION 



52 






BCS 


ERR2 


r Check for error 


53 






HOK^ 


♦160000 


'!'R2 i Set base addr in region 


54 






MOV 


♦N»R5 


? Loop count 


55 


L 


OOP : 


M0<^ 


#BUFF»R0 ? Set up for $EDMSG 


56 






MOV 


#FMT>R1 




57 






CALL 


$EDMSG 


f Edit data 


58 






QIOW*S 


*IO»UVB 


l»*5»*l » y*IOSB» »<*BUFF»R1 »*40> 


59 










y w 1 Jt w C7 'mI o 1/ o 


60 






BCS 


ERR 3D 


r Check for dir error 


61 






TSTB 


lOSB 


r Check for I/O error 


62 






BLT 


ERR3I 


? Branch on error 


63 






SOB 


R5 y LOOP 


r Print the line 


64 


done: 


DTRG$S 


#RDB 


? Detach from region 


65 






BCS 


ERR4 


f Check for error 


66 






EXIT*S 






67 


f 


Error handling code 




68 


ERRl : 


DIRERR 


<ERROR 


ATTACHING TO REGIONS- 


69 


ERR2: 


DIRERR 


<ERROR 


CREATING WINDOW AND MAPP I NO- 


70 


ERR3D: 


niRERR 


<ERROR 


WRITING DATA> 


71 


ERR3:[t 


lOERR 


♦ lOSBfv-: 


ERROR WRITING DAT AS- 




ERR4 : 


DIRERR 


<ERROR 


DETACHING FROM REGIONS- 


73 






♦ END 


START 




1 






PROGRAM 


LEX81C 




3 


C 
C 


File 


LEXSIC^FTN 




4 


C 










5 


C 


LEX71C modified to use memory msns^ement directives 


6 
7 


C 
C 


Prosirsm to 3tt3ch resJion LEX71A in partition LEX71A 


8 


C 


create 3 window and map it to the region upon creation^ 


9 


C 


read 


data out 


of the 


region? and detach from it 


10 


C 










11 


C 


Task- 


-build with these 


options ♦ 


12 


C 






VSECT=DATA : 1 60000 : 20000 


13 


C 






WNDWS==-1 




14 


c 










15 






INTEGER 


RDB<8) r 


WDB ( 8 ) 


16 


c 


This 


common block will alissn with the address window 


17 






COMMON 


/DATA/IDATA(1024) 


18 


c 


RDB 


: Re<Sion 


definition block with the following 


19 


c: 


properties ♦ ^ 






20 


c 




Size 




32 (10) (32*-word blocks) 


21 


c 




Name 




LEX71A 


22 


c 




P'arti tion 


LEX71A 


23 


c 




Protection 


WO : none r SY J RWED r OW J RWED f GR : RWED 


24 


c 




Attach 


with read access 


25 


c 


Initialize the RDB 




26 






DATA RDB /0r32y 


3RLEX y 3R71 A f 3RLEX » 3R71 A r " 000001 r 



27 1" 170000/ 
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Dynamic Regions 



SOLUTION 



28 C WDB =: Window definition block with the following properties* 

29 C APR 7 

30 C Sisre 32 (10) (32*~word blocks) 

31 C Offset in re.^ion (32 ♦-word blocks) 

32 C Lenjiith of window 32 (10) (32 ♦-word blocks) 

33 C Mar-' on create with read access 

34 C Initiali;re the WDB 

35 DATA WDB / " 3400 y » 32 ^ y r 32 y • 201 f 0/ 

36 C 

37 C Attach res^ion 

38 CALL ATRG (RDBylDS) 

39 C Check for error on attach 

40 IF (IDS ♦LT* 0) GOTO 100 

41 C Move re.^ion id to WDB 

42 WDB(4)==RDB(1) 

43 C Create and iriap window 

44 CALL CRAW ( WDB y IDS) 

45 C Check for error 

46 IF (IDS ♦LT^ 0) GOTO 200 

47 C Print contents of re<3ion 

48 DO 50 J=lyl024y8 

49 WRITE (Syll) (IDATA(K) yK-==Jy J+7) 

50 11 FORMAT (' 'yI2y7I8) 

51 50 CONTINUE 

52 C Detach from region and delete it 

53 CALL DTRG (RDBylDS) 

54 C Check for error 

55 IF (IDS ♦LT^ 0) GOTO 300 

56 C And Jump to exit 

57 GOTO 500 
58 

59 C Error messa-Ses 

60 100 WRITE (SylOl) IDS 

61 101 FORMAT ( ' ERROR ATTACHING TO REGIONy DSW =:--'yI4) 

62 GOTO 500 

63 200 WRITE (5y201) IDS 

64 201 FORMAT (' ERROR IN CREATING WINDOWy DSW ='yI4) 

65 GOTO 500 

66 300 WRITE (5y301) IDS 

67 301 FORMAT (' ERROR DETACHING FROM REGIONy DSW ='yI4) 

68 C 

69 500 CALL EXIT 

70 END 



100 



Dynamic Regions 
SOLUTION 



2. 



3 
4 

b 
6 
7 
8 
9 
10 
11 
12 
1:5 
14 
15 
16 
17 
18 
19 
20 
21 

23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 



♦TITLE 
*.TDENT 
♦ENABL 



LEX82A 

701/ 

LC 



y Enable lower case 



File LEX82A.MAC 



Pro.^raiTi to create an named region (attached on 
creation) y create a virtual address window (mapped on 
creation) r place ASCII data in to re^ioni' detach from 
the re.^ion and exity leaving the region in existence* 

Task-bui Id instructions t 

Include WNIiWS~l option 

. MCALL EXI T*S r RDBBK$ f UDBBK* t CRRG$ f CRAW* 
♦ MCALL DTRG$yriIR$yQIOW*SraiOW*C 



REG 



RDB t 



win: 



CRRG* 



RDB 



JDF'Ei for create resiion 



Define resiion with* 
Size 
Name 

Partition 
Protection 



= 2 (32* word blocks) 
= MYREG 
= GEN 

= WO:None»SY:RWEDy 
OW : RWED r GR t RWED 
Do not mark for delete on last detach 
Attach with write and delete access 
RDBBK* 2 y MYREG y GEN y <RS ♦ NDL ! RS ♦ DEL ! RS ♦ WRT ! RS ♦ ATT> y 1 70000 



CRAW* 



WDB 



y DPB for create address window 



Define window with* 
APR 
Size 

Offset in region 
Lensith in region 



= 7 

= 2 (32* word blocks) 

= (32* word blocks) 

= 2 (32* word blocks) 



wdb: 

y 

DETJ 

iosb: 

BUFF J 
MES: 
LEN 
DNMESt 

LDNHES 
y E.rror 
FCRRER : 

fcrwer: 
fdeter: 



Map on create with write access 
WDBBK* 7 y 2 y y y 2 y <WS ♦ MAP ! WS ♦ URT> 



DTRG* 

♦ BLKW 

♦ BLKB 
♦ASCII 

♦ASCII 
♦ASCII 

♦ -DNME 
format 
♦ASCIZ 
♦ASCIZ 
♦ASCIZ 



RDB 



y DPB for detaching resiion 
y I/O status block 
80 ♦ y Input/OutPut buffer 

/ENTER ASCII CHARACTER: / 
♦ -MES 

<15>/LEX82A HAS CREATED AND INITIALIZED/ 
/ THE REGION/ 

strings 

/ERROR CREATING REGION* DSW = 
/ERROR CREATING WINDOW* DSW = %D^/ 
/ERROR DETACHING FROM REGION* DSW = '/.D * / 
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Dynamic Regions 



SOLUTION 



51 


FQ.T1DEJ 


♦ASCII 


/DIRECTIVE ERROR ON READ AFTER PROMPT/ 


52 




♦ A6CIZ 


/ QIO^ DSU = %D*/ 


53 


FQIIIEJ 


♦ASCII 


!I/0 ERROR ON READ AFTER PROMPT 010 ♦ ! 


54 




♦ ASCIZ 


/ CODE = %D,/ 


55 


FQI2riE: 


♦ASCIZ 


/DIRECTIVE ERROR ON WRITE QIO^ DSW = 7.1\* 


56 
57 


FQ.I2IE: 


♦ASCIZ 


!I/0 ERROR ON WRITE QIO^ CODE = %D^ ! 


58 




♦ EVEN 




59 








ACS 
C) V 


QT APT ♦ 


ri T C' <t 
.u .1 r\ T 


♦KEG f Crest© rei^ion 


a 1 






ERRl 5 Check for error 


62 






RDB+R^GIDyWDB+W^NRID ? Move resJion ID 








9 into WDB 


64 




IiIR$ 


♦WIN 9 Create window 


65 




BCS 


ERR2 9 Check for error 


66 




niJv 


♦160000 yR5 ? Set base address in region 


67 




QIOW*S 


JL *■* n r*i Vt JL Cr JL A M. T t*\f\1\ •* JL V*. Ill** JL •! JL W r\ JL 1 

♦ I0^RPRy^5» + l 9 r^IObBf ^ ^.♦BUFFi'^l 9 »#ME&»^L 


68 






9 F'roiTiF't and read data 


69 






ERR3D 9 Check for directive error 


/O 




•Y* *T* t*j 


lOSB 9 Check for I/O error 


71 




BLT 


ERR3I 9 Branch on I/O error 


72 




MOV 




/ .3 




PIUV 




"7/1 


LUUr ♦ 


MTU 10 


(R4) f (R5)f f Move character to region 


75 




U Jt> 




"7 A 
/ O 






f until done 


// 






10 ♦ WVB y D > 1 y ? lOSB f r -^.DNMES 7 LDNMEb » 40..:- 


/ o 








/ 7 




JpL,c) 


ERR4D 5 Branch on dir error 


80 




T •V fj 

Ibi Et 


lOSB 9 Check for I/O error 


PI 




IRI T 
jDL_ 1 


ERR4I 9 Branch on I/O error 


'■> 
0^ 






♦DET 9 Detach from region 


83 




BCS 


ERR5 > Check for error 










85 


9 Error 


code 




86 


ERRi: 


MOV 


♦FCRRERrRl 9 Create re*3ion error 


87 






9 messasie 


88 




BR 


SHOERR 9 Branch to coinmon code 


89 


ERR2 : 


MOV 


♦FCRWERjrRl 9 Create window message 


90 




BR 


SHOERR 9 Branch to common code 


91 


ERR3ri : 


MOV 


♦FQIlDEs'Rl 9 QIO directive messai^e 


92 




BR 


SHOERR 9 Branch to common code 


93 


ERR3I: 


MOV 


lOSBxRO 9 Extend si^n on status 


94 




MOV 


RO!'$DSW 9 and move to ar^ block 


95 




MOV 


♦FQIlIEyRl 9 QIO I/O error 


96 




BR 


SHOERR 9 Branch to common code 


97 


ERR4D: 


MOV 


♦FQI2DE!'R1 9 QIO write dir error 


98 




BR 


SHOERR 9 Branch to common code 


99 


ERR4I: 


MOV 


lOSByRO 9 Extend sidn on status 


100 




MOV 


ROffDSW 9 and move to ar^ block 
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Dynamic Regions 



SOLUTION 



101 MOV #FQI2IE»R1 r QIO write err message 

102 BR SHOERR ? Branch to comirion code 

103 ERRS J MOV ♦FDETERyRl ? Detach resJion messai^e 
104 

105 SHOERR J MOV #BUFF>RO i Set up for *EDMSG 

106 MOV **DSW>R2 r 

107 CALL *EDMSG t Edit message 

108 aiOW*S #I0»UVBr*5y#l» r » ><#BUFFyRl >*40> 

109 y Display message 

110 EXIT*S J Exit 
111 

112 ♦END START 



6 
7 
8 
9 
10 
1 1 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 



PROGRAM LEX82A 
File LEX82A*FTN 

LEX82A creates a named re<Sion (attached on creation) r 
creates a virtual address window (mapped on creation)^ 
places an ASCII character input at TIJ at all locations 
in the reiSiony detaches from the region and exits » 
leavins§ the region in existence* 

Task-foui Id instructions t 

>L INK/MAP/OPT IONS/CODE t FPP LEX82A LB J C 1 > 1 3F0R0TS- 
->/LIBRARY 

Opt i on? VSECT=DATA : 160000 1 20000 
Option? WNDWS::=1 
Option? <RET> 



RDB ResSion Definition 
followini^ properties* 

Size = 
Name = 
Partition = 
Protection == 



Block for resiion with the 



word blocks) 



Do not 
Attach 



mark 
with 



= 2 (32 
= MYREG 
= GEN 

== WO:NoneySY:RWED 
OWJRWEDrGRtRWED 
for delete on last detach 
write and delete 



WDB Window Definition Block for window with the 
following properties* 

APR 

Size 

Offset in res^ion 
Lens^th in region 



7 

2 (32* word blocks) 

(32* word blocks) 

2 (32* word blocks) 



Map on create with write access 
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Dynamic Regions 



SOLUTION 



37 INTEGER RriB(8) rWriB( 8) 

38 C Array for dynsmic resJioni' variable for ASCII character 

39 BYTE ARRAY (1 28 ) y CHAR 

40 COMMON /DATA/ ARRAY 

41 C 

42 C Initial i2:e the RDB 

43 DATA RDB/0f2r3RMYRf3REG »3RGENr3R » "000152 r " 170000/ 

44 C Initialise the WDB 

45 DATA UDB/"3400»0»2y0y0y2f •202y0/ 

46 C Call routine to create and attach region 

47 CALL CRRGCRDBrlDS) 

48 C Check for error 

49 IF(IDS*LT.O)GOTO 800 

50 C Create address window and map to region 

51 WDB(4)=RDB(1) 

52 CALL CRAW (WDB? IDS) 

53 C Check for error 

54 IF<IDS*LT*0)60T0 810 

55 WRITE (5^50) 

56 C Get ASCII character 

57 50 FORMAT (' *ENTER ASCII CHARACTER: ') 

58 READ (5y60)CHAR 

59 60 FORMAT <A1) 

60 C Place data in re:^ion 

61 DO 80 J=lrl28 

62 ARRAY <J)=CHAR 

63 SO CONTINUE 

64 C Detach from region 

65 CALL DTRG<RDByIDS) 

66 C Check for error 

67 IF(IDS*LT»0)GOTO 820 

68 C Write messaj^e 

69 TYPE *y'LEX82A HAS CREATED AND INITIALIZED THE 

70 1 REG I ON' 

71 C Branch to comtrion exit 

72 GOTO 1000 

73 C Write create error message 

74 800 WRITE (5)- 805) IDS 

75 805 FORMATS ERROR IN CREATING REGIONr DSW = '^14) 

76 C Go to comiTion exit 

77 GO TO 1000 

78 C Write attach error messai^e 

79 810 WRITE(5>815)IDS 

80 815 FORMATC ERROR IN CREATING WINDOW AND MAPPING^ 

81 IDSW = 'yI4) 

82 GOTO 1000 

83 C Write detach error message 

84 820 WRITE(5r825)IDS 

85 825 FORMATS ERROR IN DETACHING FROM REGIONr DSW = ' 

86 lrI4) 

87 C ComiTian exit 

88 1000 CALL EXIT 

89 END 
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Dynamic Regions 
SOLUTION 



3 
4 
b 
6 
7 
8 
9 
.10 
1.1 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
2(S 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 



♦TITLE LEX82B 
♦ I DENT /Ol./ 
♦ENABL LC 



y Enable lowc^r case 



File LEX82B»MAC 



Prouirani to attach to an existinj^ region f create a 
virtual address window ( (napped on creation) y modify 
the first bwte of the rerfiony read ASCI.T data from th( 
r i3 i o n y d e t a c h f v o m t h e r e i o ri a n d m a r k i t f o r d e 1 e t e i 
and finally exit* The rei^ion will foe deleted on last 
detach* 

Assemb 1 e and task--bu i 1 d i nst ruct i ons t 



>MACRO/LIST lb: CI y 13PR0GMACS/LlBF?ARYydevJ [.ufd:]- 
••>LEX82B 

•••LINK/MAP./OPT.T0N LEX82ByLBJ C 1 y 1 3PR0GSUBS/L IBRARY 
:=Option? WNDWS^^^l 
>Option? < RETA- 



RD Bi 



WlNt 
WDBt 



iosb: 

RS.TZ 

start: 



*MCALL 
*MCALL 
♦ MCALL 
RDBBK$ 
Define 



CRAW* 

WDBBK* 

Define 



EXrTf»SyRDBBK*yWDBBK*yATRG*C y System 
CRAW* y DTRGfS y D.TR$ y Ql OW*S y macros 
DIRERRylOERR y Supplied macros 
y MYREG y GEN y <RS * WRT ! RS , RED ! RS ♦ MDL ! RS ■> DEL.> 
region with? 
Size - (32* word blocks) 

returned after attach 
Name ==••: MYREG 

Partition ~ GEN 

Mark for delete on last detach 
Attach with ready write and delete access 

WDB yDPB for create address window 

7 y 200 y y y y <WS ♦ MAP ! WS ♦ RED ! WS * WRT> 
window with: 



APR 
Size 
Offset 



200 (32* word blocks) 
in rei-Jion =" (32* word blocks) 
(32* word blocks) 
returned when rhBPPBd 
Map on create with read and write access 



L e ri ^ t h i n r e i o n 



*BLKW 

-=128* 
ATRG$C 
BCS 
MOV 

DIR* 



RDB 
ERRl 



y I/O status block 

y ReiSion si:ce in bytes 

y Attach to re.*3ion 

y Check for error 



RDB+R*GIDyUDB+W*NRID y Move resJion 

y into WDB 

♦WIN y Create window 



ID 
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Dynamic Regions 
SOLUTION 



D .1 






ERR2 




f 


Check for error 


c;'7 




nUv 


#160000 


yR5 


5 


Set base addr in rejiion 


5r5 






# ' Z f < R5 


) 


y 


Place Z in 1st bv^te 






PlU V 


*RSIZrR4 


y 


Size of rei-iion in bwtes 






nUv 


#64* ^R3 




y 


Chars per line 




LUUr ♦ 


U lUWvb 


#IO»WVB 


9 #5 y #1 » » 


* I OSB y y <R5 y R3 y *40> 


vJ / 










y 


Write data 


%JO 




BCS 


ERR3D 




y 


Check for dir error 


••--o 

vJ 7 




TSTB 


lOSB 




y 


Check for I/O error 


60 




BLT 


ERR3I 




y 


Branch on error 


A 1 




SUB 


R3rR4 




f 


Compute chars left 


A''.> 




BLE 


DONE 




y 


Branch if done 


63 




ADD 


R3jR5 




y 


Point to next char 


64 




CMF* 


R3yR4 




y 


Check for < 64* chars 


65 










y 


left to print 


66 






LOOP 




y 


> or ~ y p r i n t n e k t 1 i n e 


67 




MOV 


R4 y R3 




y 


<y print onlw that many 


68 










y 


chars 


69 




BR 


LOOP 




y 


Print the line 


70 


done: 


riTR(3*S 


#RDB 




y 


Detach from resiion 


71 




BCS 


ERR4 




y 


Check for error 


72 




EXIT*S 










73 


r Error 


hsndlinsl code 








74 


ERRi: 


DIRERR 


<ERROR 


ATTACHING 


TO REGION.?- 


75 


ERR2 : 


DIRERR 


<ERROR 


CREATING 


WINDOW AND MAPPING.;- 


76 


ERR3ri: 


DIRERR 


<ERROR 


WRITING 


DATA> 


77 


ERR3I t 


lOERR 


*IOSB?< 


ERROR WRITING DATA> 


78 


ERR4 J 


DIRERR 


<ERROR 


DETACHING 


FROM REGION.> 


79 




♦ END 


START 









1 PROGRAM LEX82B 

2 C 

3 C File LEX82BJ-TN 

4 C 

5 C FORTAN pro.<3ram to attach region MYREG in partition GEN 

6 C (which was created by LEX82A)y create a window and map 

7 C it to the re.^ion upon creationy place a Z in the first 

8 C bytey then read data out of the rediony and detach 

9 C from ity deletin.«i it in the process* 

10 C 

1 1 C 7' a s k - b u i Id with t ^1 e s e o p t i onst 

12 C USECT-DATAn.60000:20000 

13 C WNDWS-:^:! 

14 C 
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Dynamic Regions 
SOLUTION 



15 


C 


16 




17 




18 


c: 


19 




20 


C 1 


21 


C 1 


'■.>'? 


c 


23 


c 


24 


c 


25 


c 


26 

27 


c 
c 


28 


c 


29 


c 


30 




31 
32 


c 


33 

~X A 


C 1 
C/ 1 


35' 

36 


c 
c 


37 


c 


OO 




39 


c 


40 


c 


41 


c 


42 




43 


c 


44 


C 1 


45 




46 


C ( 


47 




48 


C i 


49 




50 


C 1 


51 




52 


C 1 






53 




54 


'C 1 


55 




56 


C 1 


57 


10 


58 


11 


59 


c 


60 




61 




62 




63 





64 





INTEGER RDB(8) yWliB(8) 
BYTE IDATA(128) 
This common block will ali^n with the address window 

COMHON /DATA/ I DATA 
F?DB Region definition block with the followinsJ 
properties* 

Si;-r© (32 ♦-word blocks) 

filled in when attached 
Name MYREG 
F'artition GEN - 

F'rotect i on WO t none r SY J RWED r OW i RWED » GR : RWED 

Mark for delete on last detach 
Attach with delete^ write and read access 
Initielir:© the RDB 

DATA RDB /0yO?3RMYRy3REG y3RSENy3R »"000213v 
1" 170000/ 

WDB Window definition block with the followin?.^ 
properties ♦ 

APR 7 

Size 200(8) (32* -word blocks) 

Offset in region (32* -word blocks) 
Length of window (32 ♦-word blocks) 

filled in when mapped 
Map on create with read access 
I n i t i 3 1 i ne the WDB 

DATA WDB /•3400s'0» "200y0j'0»0)> ■203»0/ 

Attach resJion 

CALL ATRG ( RDB » IDS) 
Check for error on attach 

IF (IDS ♦LT^ 0) GOTO 100 
Move re£3i on id to WDB 

WDB(4):=RDB(1) 
Create and map window 

CALL CRAW ( WDB » IDS) 
Check for error 

IF (IDS ♦LT, 0) GOTO 200 
Place ASCII Z in first bwte 

IDATA(1)=='Z' 
Print contents of rei^ion 
WRITE (5yll) IDATA 
FORMAT (' '?64A1) 
Detach from ression and delete it 

CALL DTRG ( RDB y IDS) 
Check for error 

IF (IDS ♦LT. 0) GOTO 300 
And Jump to exit 
GOTO 500 
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Dynamic Regions 
SOLUTION 



65 


C 






66 


C Error 






67 


100 


WRITE (5^101) IDS 




68 


101 


FORMAT (' ERFv'OR ATTACHING TO REGION.- DSW 


y 14) 


69 




GOTO 500 




70 


200 


WRITE <5y201) IDS 




71. 


201 


FORMAT (' ERROR IN CREATING WINDOWr DSW ' y 


14) 


72 




GOTO 500 




73 


300 


WRITE < 5^301) IDS 




74 


301 


FORMAT (' ERROR DETACHING FROM REGION y DSW 


yI4) 


75 


C 






76 


500 


CALL EXIT 




77 




END 
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Dynamic Regions 
SOLUTION 



3. 



3 
4 

'c> 
6 
7 
Q 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
2S 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 



♦TITLE SNDREF 
♦ IliENT /Ol/ 
*ENABL LC 



f File LEX83A*MAC 



f Enable lower case 
y 9 EX 



y Modified to send to 3 2nd receiver RCVRF2 in JyEX 

r addition to RC'v'REF ??EX 
f 

i LEX83A creates a 64 -word (2 block) unnamed re.^ion and 

f fills it with ASCII characters* It the^n sends the 

f ression to RCVREP y and then waits for RCVREF to receive 

9 the re.^ion* (This is sis?nalled b« event fla.*^ #1») It 

y then prints a messai^e and exits* Since the area is 

y unnamed y it is automatical 1*:; deleted when the last 

y attached task e;;its* 
y 

y Assemble and task -build instructions* 

I >MACR0/LIST LBU:iyi:.lFROGMACS/LIBRARYydevU:ufd.T-y yEX 

y ->LEX83A 

? >LINK/MAF/OFTiaN LEX83A y LB : CI » 1 3PR0GSUBS/LIBRARY 

y Option? UNi:iWS=^l 

y 

y Install and run instructions JRCUREF must be installed* 

? LEX83B must be installed as RCVRF2* Run LEX83A firsty 

y then run RCVREF and RCMRF2 (either one first) 



*MCALL 
*MCALL 
*MCALL 
♦MCALL 
*NLIST 



QIOW*CyaiGW$SyRaST*C y System macros 
WTSE*CyEXIT$SyRDBBK$y WDBBK* 
CRRG$SyCRAW*SySREF$C 



DIRERR 
BEX 



Supplied macro 
SUPPRESS DATA 



lief i ne r eji i on w i th t 
Size 
Name 

Partition 
Protection 



RPRO 
RSTAT 

RDBt 



^■^ 2 32--W0Rn BLOCKS 

none 
:= GEN 

WO:noneyGRJRWED 
OW:RWEDySY:none 

Attach on create 

Read and write access desired on attach 
170017 

RS*ATT !RS*RED!RS*WRT 
RDBBK$ 2y yGENyRSTATyRPRO 
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49 
50 
51 
52 
53 
54 

56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
7.1 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 



Define window with* 

APR = 7 

Size - 2 

Offset in region = 

Length to map = 



32-word blocks 

32-word blocks 

32-word blocks (defaults 

to smaller of re:3ion 

size and window length) 



WSTAT 
f 

ME 81 : 

LMESl 
MES2 : 

LMES2 



Mar' on create with 
= WS,MAP!WS.WRT 



read and write access 



WriBBK$ 7 y 2 f y y » WSTAT 



♦ASCII / 
♦ASCII / 

♦ASCII / 
♦ASCII / 
♦ - MES2 



I..EX83A HAS CREATED THE REGION AND HAS/ 
SENT IT TO RCVREF AND RCVRF2*/ JrEX 



RCVREF 
LEX83A 



AND RCVRF2 HAVE RECEIVED 
IS NOW EXITING ♦/ 



IT*/? fEX 
f fEX 



♦ LIST 

♦ EVEN 
♦ENABL 



BEX 
LSB 



start: crrg$s *rdb 



? Fill 



!0$: 



DCS 
MOV 

CRAW$S 
BCS 
MOV 
region 
MOV 
MOV 
SOB 



1$ 

RDB+R ♦ GID y WDB+W ♦ NRID 



Show binary extensions 

Enable local symbol 

blocks 
Create and attach to 

resJion 
Branch on dir error 



ID 



#WDB 
2$ 

WDB+W, NBAS 1 
with all M's 
#64» yR3 
#"MMy (R0)•f 
R3y20$ 



RO 



y Send the re:3ion to RCVREF* EF 1 
f RCVREF recieves it 

SREF$C RCVREF yWDByl ? 



BCS 

SREF*C 
BCS 

QIOW*C 
BCS 

WTSE$C 
BCS 

WTSE*C 
BCS 



3$ 

RCVRF2yWDBy3 
7* 

I0,WVBy5y2y y y y 
4* 

i 



8$ 



Copw resfion 
y into WDB 
Create and map window 
Branch on dir error 
base V^A* of rej^ion 

count of words to move 
Move in an ASCII M 
Loop throu£Jh region 
will be set when 

y Send by reference to 

y RCVREF 

y Branch on dir error 

y Send by reference yJEX 

y to RCVRF2 ? yEX 

y Branch on dir error? yEX 
;:MESlyLMESly40> ? Display 
? messa.^e 

? Branch on dir error 

? Wait for RCVREF to ^et 

? the region 

? Branch on dir error 

? Wait for RCVRF2 to ??EX 

? ^et the resJion ??EX 

? Branch on dir error??EX 
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99 




QIOW*C 




100 








101 




BCS 


6* 


102 




EXIT$S 




103 


y Error 


code 




104 


1$: 


DlREFv'R 


<ERROR 


105 


2*: 


DIRERR 


<ERROR 


106 


3$: 


DIRERR 


<ERROR 


107 




DIRERR 


<ERROR 


108 




DIRERR 


<ERRfJR 


109 


6$: 


DIRERR 


<ERROR 


110 


7$: 


DIRERR 


<ERROR 


111 




DIRERR 


<ERROR 


112 




♦ END 


START 



5 » 2 y » » ? <MES2 9 LMES2 r 40> r D i sp 1 ay 

y message 
y Branch on dir error 
r Exit 

ON CREATE OR ATTACH REGION> 
ON CREATE OR MAP WINDOW> 
ON SEND BY REFERENCE::- 
ON 1ST WRITE.:- 
ON WAIT FOR> 
ON 2ND WRITE> 

ON 2ND SEND BY REFERENCE.:- yJEX 
ON 2ND WAIT FOR> yyEX 



6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 



PROGRAM SNDREF 
File LEX83A,FTN 

Mod.i.fied to send the region by reference to RCVRF2 MEX 
in addition to RCVREF !!EX 

This program creates a 64-word unnairied resJion and 
fills it with ASCII characters* It then sends it by 
reference to task RCVREFy and waits for RCVREF to 
receive the re.^ion ♦ (This is signalled by event flaa 
#1.) SNDREF then prints a message and exits* Since 
the area is unnainedy it is automatically deleted when 
the last attached task exits* 

Task-bui Id instructions ♦ 

>L INK/MAP/CODE :FPP/0PTI0NS LEX83A y LB t C 1 y 1 3F0- ! ! EX 

~>ROTS/LIBRARY ! ! EX 

Option? WNDWS=1 

Option? gSECT^-DATA 1 1 60000 : 200 

Option? -sRET.::- 

Install and run instructions* RCVREF must be installed* 
LEX83B niust be installed under the name RCVRF2* ! ! EX 
Run LEX83A first y then run RCVREF and RCVRF2 (in MEX 
either order) 

RDB " ResJion definition block with the following 
properties * 

Size 2 32-word blocks 

Name none 

Partition GEN 

P r ot ec t i on WO : none y S Y : RWED y OW J RWED y 

GRtnone 
Attach on creation 

Read and write access desired on attach 
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"lO 

o V 


L, 




WDB ~ Window definition black with the following 


A A 






properties* 


A 1 






APR 7 




C 




Size 2 32-word blocks 


A '7 


p- 




Offset in rei^ion 32-word blocks 


A A 


L 




Leni^th of redion 2 32--word blocks 


45 


C 




Map on create with write access 


46 


C 






A7 






INTEGER RDB ( 8 ) r WDB ( 8 ) » RC V ( 2 ) r RCV2 ( 2 ) M EX 


48 


c 


This 


coiriiTion block will ali^n with the address window 


49 






COMMON /DATA/IDATA<64) 


50 


c 


Initialize the RDB 


51 






DATA RDB/Of •2»0r0!'3RGENy3R , " 43 ^ " 1 7001 7/ 


52 


c 


Ini t ic»] i :^e the WDB 


5 ■£ 






DATA WDB/ " 3400 tOf 2)'0r0i' "2r 202 r 0/ 


54 


c 


Name 


of receiver task 


55 






DATA RCy/3RRCUy3RREF/ 


56 






DATA RC'v'2/3RRCVy3RRF2/ ! ! EX 


57 


c 


Code 




58 






CALL CRRG(RDB>IDS) ! Create re.dion 


59 






IF (IDS .LT, 0) GOTO 100 ! Check for error 


60 






WDB(4)-"RDB<1) ! Move re.^ion id to WDB 


61 






CALL CRAW ( WDB y IDS) ! Create window 


62 






IF (IDS a.T* 0) GOTO 200 ! Check for error 




c 


Fill 


resfion with data 


64 






DO 10 I=--ly64 


65 


10 


IDATA( I )=••=••'' MM' 


DO 


c 


Send - 


by- reference to receiver tasky set ©vent flad 1 


jd *7 
6 / 


c 


when 


received 


68 






CALL SREF(RCMrlyWDBr yIDS) 


69 






IF (IDS a..T» 0) GOTO 400 ! Check for error 


70 


c: 


Send-- 


by-reference to 2nd receiver? RCVRF2y use event M EX 


71 


c 


f l3£{ 


2 HEX 


72 






CALL SREF ( RCV2 y 2 y WDB y y IDS ) M EX 


73 






IF (IDS a..T» 0) GOTO 450 ! Check for error ! ! EX 


74 

75 






TYPE *y' LEX83A HAS CREATED THE REGION AND HAS 
1 SENT IT TO RCVREF AND RCVRF2 4 ' ! Display HEX 


76 


c 




! inessa^ae ! ! EX 


77 






CALL WAITFR( 1 y IDS) ! Now wait for reception 


78 






IF (IDS ♦LT* 0) GOTO 500 ! Check for error 


79 






CALL WAITFR(2yIDS) ! Wait for RCk^RF2 to ! ! EX 


80 


c 




! receive ! • EX 


81 






IF (IDS 0) GOTO 550 • Check for error ! ! EX 


82 






TYPE *y' RCVREF AND RCURF2 HAVE RECEIVED IT* 


S3 






1 LEX83A IS NOW EXITING*' ! Write messa<3e HEX 


84 






GOTO 600 ! And 3o exit 
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85 C Error hsndlinsJ code 

86 100 WF^TTE (5y 110) IDS 

87 110 FORMAT <' ERROR CREATING REGION? DSW ' 9IA) 
98 GOTO 600 

39 200 WRITE (5? 210) IDS 

90 210 FORMAT ERROR CREATING WINDOW? DSW == '»I4) 

91 GOTO 600 

92 400 WRITE (5 >- 410) IDS 

93 410 FORMAT ERROR IN SEND-BY -REFERENCE r DSW ~ 'yI4) 

94 GOTO 600 

95 450 WRITE (5 5- 460) IDS 

96 460 FORMAT (' ERROR IN 2ND SEND-BY~REFERENCE r DSW 

97 1 = ' f 14) ! !EX 

98 GOTO 600 ! ! EX 

99 500 WRITE (5?510)IDS 

100 510 FORMAT <' ERROR ON WAIT? DSW = '?I4) 

101 GOTO 600 ! !EX 

102 550 WRITE <5?560)IDS ! ! EX 

103 560 FORMAT (' ERROR ON 2ND WAIT? DSW '?I4) ! ! EX 

104 C 



105 600 CALL EXIT 

106 END 



1 ♦TITLE LEX83B 

2 ♦IDENT /Ol/ 

3 tENABL LC ? Ensble lower case 

4 y 

5 ? File LEX83B»MAC 

6 ? 

7 ? Second reciever for SNDREF (modifed to LEX83A)* 

8 ? Proj^ram to recei ve-by-ref erence (mspped on creation)? 

9 ? modify the first data bwte in the region? 

10 ? read ASCII data from the resfion? detach from the 

11 ? res^ion and exit* The rei^ion will be deleted on last 

12 ? detach* 

13 ? 

14 ? The first word in the region contains the count of the 

15 ? number of bytes of data in the resJion* 

16 ? 

17 ? Assemble and task build instructions* 

18 y 

19 } .>MACRO/LIST LB J C 1 ? 1 .IPROGMACS/LIBRARY ? dev : Cuf d3 

20 ? ->LEX83B 

21 ?* LINK/MAFVOPTIONS LEX83B ? LB : CI ? 1 .1PR0GSUBS/LIBRARY 

22 y option? WNDWS=1 
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23 5 

2A y 1 n <r> t a 1 .1 a n d r u n i i"i s t r u c t i o n s t R C V F\' E F m u s t b e i n s t a 1 1 & d * 

25 y LEXe3B must be installed as RCURF2* Run L.EX83A first 

26 ? and then run RCyREF and RCVRF2 (in either order)* 

27 5 

28 ♦MCALL EX:CTt>Gy Wi:iBBK*?RREF$ 5 E.xternal swstein 

29 ♦MCALL. QIOW^SyCRAWHiyniR* ? macros 

30 ♦MCALI... DlRERRy lOERR ? External suj^plied 

31 y macros 

32 y Define window with* 

33 y APR 7 

34 y Size 200(8) (32* word' blocks) 

35 y These are filled in on receive as set b'j sender t 

36 y Offset in region (32* word blocks) 

37 y Lens^th in res? ion ~ (32* word blocks) 

38 y reset after mappins.{ 

39 y Access -~ 

AO y Note* Must map separately (or as part of receive) 

41 WDBt WDBBK$ 7y2 

42 J 

43 REC: RREF$ WDB y Set up DPB for RREF* 

44 WIN? CRAW$ WBB y Set up DPB for CRAW* 

45 lOSBJ tBLKW 2 y I/O status block 
46 

47 START J DIR* #WIN y Create virtual address 

48 y window 

49 BCS ERRl y Branch on error 

50 BIS #WS,MAPy WDBfW»NSTS y Set WDB to map on 

51 y receive 

52 DIR$ #REC y Receive bw reference 

53 y and map 

54 BCS ERR2 y Branch on error 

55 MOU #160000yR5 5 Set base address in 

56 y r (3d ion 

57 MOV WDBfW*NLENyR3 y Size of resJion to R3 

58 MUL *64»yR3 y Convert blocks to bwtes 

59 MOV #'9y(R5) y Modify first data byte 

60 y 

61 aiOW$S #I0,WMBy#5y#l y y#IOSBy y<RSyR3y#40> yWrite 

62 y data 

63 BCS ERR3 y Branch on directive 

64 y error 

65 TSTB lOSB y Check for I/O error 

66 BLT ERR 4 y Branch on error 

67 EXIT$S 

68 y Error code 

69 ERRl J niRERR <ERROR CREATING VIRTUAL ADDRESS WINDOW> 

70 ERR2J DIRERR <ERROR ON RECEIVE AND MAP> 

71 ERR3J niRERR <ERROR ON WRITE QIO> 

72 ERR4J lOERR # lOSB y <ERROR ON WRITE OIO 

73 *END START 
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1 PROGRAM LEX83B 

2 C 

3 C File LEX83B*FTN 

4 C 

5 C L.EX83E{ receives by reference 3 region from the task 

6 C LEX83A* It maps to the re^iorif modifies the first 

7 C hytey prints out the contentsf and exits* The re.«Sion 

8 C is deleted on last detach* 

9 C 

1.0 C Task-build instructions J Include these options 

11 C WNDUS^l 

12 C MSECT^DATA: 160000:20000 

13 C 

14 C Install and run instructions? LEX83B must be installed* 

15 C as RCVRF2* RC<^REF must be installed* Run LEX83A firsts 

16 C then run LEX83B and RCVREF (in either order)* 

17 C 

18 C WDB Window definition block with; 

19 C APR 7 

20 C Size 200(8) 32-word blocks 

21 C Allow for full APR 

22 C Offset in region 32-word blocks 

23 C Len<=lth of resJion 32- word blocks (to be filled 

24 C in on receive) 

25 C Read and write access 

26 INTEGER WDB (8) 

27 DATA WDB/"3400yO» "2r0j0r "Or "3^0/ 

28 BYTE DATA (128) 

29 C This comiTion block will alisfn with the address window 

30 COMMON /DATA/DATA 

3 1 C 

32 C Create address window--do not map at this time 

33 CALL CRAW ( WDB y IDS) 

34 C Check for error on create 

35 IF (IDS ♦LT* 0) GOTO 200 

36 C Now set WDB status for mapping — will be done bw 

37 C receive-by- reference 

38 WDB(7)=WDB(7)+"200 

39 C Receive data and map 

40 CALL RREF(WDBy »IDS) 

41 C Check for error 

42 IF (IDS *LT* 0) GOTO 100 

43 C Modify first value 

44 DATA(1)~'9' 

45 C Calculate number of bytes of data - length in blocks 

46 C returned at WDB(6) 

47 NCHAR = 64*WDB(6) 

48 WRITE(5ylO) ( DATA ( I ) y 1=1 y NCHAR ) 

49 10 FORMAT (' 'y64Al) 

50 C Go e;-;it 

51 GOTO 300 
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52 


C 


Error mess3£3es 






53 


100 


WRITE(5rll0)IDS 






54 


1.10 


FORMAT ( ' ERROR 


ON RECEIVE-BY~REFERENCE^ 


DSW 


55 




GOTO 300 






56 


200 


WRITE(5»210).TDS 






57 


210 


FORMAT ( ' ERROR 


CREATING WINDOW^ DSW 


14) 


58 


300 


CALL EXIT 






59 




END 
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File I/O 



TEST/EXERCISE 

Next to each activity, write for open, I for I/O operation, 
or C for close, to identify which step of file I/O is 
involved. 

a. Records are read from the file. 



b. Access rights to the file are checked. 



c. Existing file is located on disk. 

d. Internal buffers are placed in a pool for re-use. 



e. Records are written to a file. 



Describe three functions performed by the Files-11 ancillary 
control processor (FllACP) when a task creates a new file 
containing seven blocks. 
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File I/O 



TEST/EXERCISE 



For each of the following, tell whether FCS only, RMS only, or 
both can be used for file I/O. If both can be used, identify 
which you would prefer and why. 

a. A teacher has a file with one record for each student. 
The students are identified by student number (1 - 100) . 
Each record contains the student's test scores (space is 
reserved for 10 scores) and his average. The instructor 
adds new test scores and updates the averages as he gives 
tests. In addition, he wants to access any student's test 
scores and test average using the student number. 
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File I/O 



TEST/EXERCISE 



A company has a file of customer records. Each record 
contains the company name, the address, the contact 
person, and the equipment bought. At different times, the 
records are accessed using company name, city, or contact 
person. 



A company uses COBOL for its applications. It has a 
payroll file which is processed in order every two weeks. 
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File I/O 



SOLUTION 

Next to each activity, write for open, I for I/O operation, 

or C for close, to identify which step of file I/O is 
involved . 



I 


a . 


Records are read from the file. 





b. 


Access rights to the file are checked. 





c . 


Existing file is located on disk. 


c 


d. 


Internal buffers are placed in a pool for re-use. 


I 


e . 


Records are written to a file. 



Describe three functions performed by the Files-11 ancillary 
control processor (FllACP) when a task creates a new file 
containing seven blocks. 

Any three of the following: 

Allocate a file header 
Initialize the file header 
Set up file retrieval pointers 
Create a directory entry 
Allocate blocks to the file 
Connect a task's LUN to the file 
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3. For each of the following, tell whether FCS only, RMS only, or 
both can be used for file I/O. If both can be used, identify 
which you would prefer and why. 

a. A teacher has a file with one record for each student. 
The students are identified by student number (1 - 100) . 
Each record contains the student's test scores (space is 
reserved for 10 scores) and his average. The instructor 
adds new test scores and updates the averages as he gives 
tests. In addition, he wants to access any student's test 
scores and test average using the student number. 

Either FCS or RMS may be preferred. 
FCS 

• Easier to program (in MACRO-11) 

• Less overhead (although very close if using a relative 
file rather than an indexed file) 

• File must have fixed length records with record 
numbers corresponding to student numbers 

RMS 

• If a relative file is used, can automatically skip 
over deleted records (if student leaves or drops thei 
course) 

• In FORTRAN, no harder to program 

• Not much overhead for a relative file 

• File must be a relative file with fixed length 
records, with cell numbers corresponding to student 
numbers 
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SOLUTION 



A company has a file of customer records. Each record 
contains the company name, the address, the contact 
person, and the equipment bought. At different times, the 
records are accessed using company name, city, or contact 
person. 

Best answer is RMS only since an indexed file with 
multiple keys is needed for fastest access. FCS can be 
used, but access by key value is impossible. You would 
have to step through the file, checking all records, to 
locate the one you want. 

A company uses COBOL for its applications. It has a 
payroll file which is processed in order every two weeks. 

RMS only; COBOL is supported under RMS, but not under 
FCS. 
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File Control Services 



TEST/EXERCISE 



1. Modify CRESEQ so that each record in the file contains the 
text input from the terminal preceded by "AAAA" . 

2. Write a task that appends records to a file you have created 
(using one of the FCS example programs or the editor) . 

3. In MACRO-11, modify the task CREFXA so that input from the 
terminal uses FCS routines instead of QIO directives. 

4. Write a task that requests input from a terminal of the form: 

n, text 

Use the input to update the nth record of FIXED. ASC, which has 
fixed length records. Use random access and do not truncate 
the file. 

5. In MACRO-11, modify the task BLOCKl or BL0CK2 so that it 
writes or displays two virtual blocks at a time. 

6. (Optional) In MACRO-11, modify the task CSI so that the 
subroutines DISPLY and DELETE actually display and delete the 
file. Caution: DELET$ delete the highest version of a file 
if no version number is specified. (See Chapter 6 of the 
lAS/RSX I/O Operations Reference Manual for information about 
the routines GCML and CSI.) 
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1. 



3 
4 

5 
6 
7 
8 
9 
10 
:ll 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
20 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 



♦TITLE CRESEQ 
♦I DENT 701/ 
♦ENABL LC 

File LEX101»MAC 

Modificjd to Freced each record with AAAA 

CRESEQ creates 3 file VARI+ASC* It reads 
records from "f'ltr and places them in the file* 
A "^Z terminates input and closes the file* 

Assemble and task-build instructions? 

MACRO/LIST lb: CI y 1 3PR0GMACS/LIBRARY y dev : Cuf d:J■- 
•->CRESEQ 

LINK/MAP CRESEQj-LBJ rir 1.1PR0GSUBS/LIBRARY 

♦ HCALL EXST$C!'QIOW$CyaiOU)*yDIR* f System macros 
♦MCALL FSRSZ*yFDBDF$»FriAT$ArFDRC$AyFDOP*A ? 

♦ MCALL NMBLK*yOPEN*Ws' PUT* » CLOSE* ? 

♦MCALL DIRERRf lOERRyFCSERR ? Supplied macros 

FSRSZ* 1 ? 1 file for record I/O 

? Define file descriptor block for VARI»ASC 



fob: 



FDBDF* 

FDAT$A R*VARyFB»CR 



FDRC$A yBUFF 



FDOP*A 



FNAME 



FNAME: NMBLK* VARIrASC 



r Local Data 
buff: ♦ASCII 

inbuf: .blkb 
iost: ♦blkw 

♦ LIST 

♦ EVEN 



/AAAA/ 
80^ 



BEX 



Allocate the FDB 

Variable length records y 
L i st i n^ - i mp 1 i ed 
ca r r i a«3e r (•? tu rn ? 1 i ne 
feed 

Seauential access and 
record I/O by 
default y BUFF is 
user record buffer 

Use LUN ly file spec 
at FNAME 

"VARI»ASC" 



USER RECORD BUFFER i i EX 

J yEX 

I/O STATUS BLOCK 



♦ENABL LSB 
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51 
52 
53 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 

68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
SO 
81 
82 

83 
84 
85 
86 



start: 

i Open file for writer call ERRl if open fails 
OPEN$W #FDB yyffy? ERRl 
record from terminal y put to file* 



r Get 
10$: 



exit: 



arow$c 

BCS 

TSTB 
BL,T 

mKf 

ADD 
PUT$ 

BCS 
BR 

CLOSE* 
EXST*C 



1 ♦ R VB y 5 y 1 y y I OST y y < I NBUF 
ERR21I y Branch 



Rl 



lOST 
ERR2I 
lOST+2 
*4yRl 
#FDBy yRl 

ERR 3 
10$ 



♦FDByERR4 
EX$SUC 



SO 
on 
error 
Check for 
Branch on 
Number of 
Add 4 for 
Put record 



EX 



di recti ve 



I/O error 
I/O error 
bytes iriF'Ut 
4 A's y yEX 

to file 



y GET NEXT RECORD 

y Close file 

y EXIT STATUS IS 1 



♦SBTTL ERROR HANDLER 

y Error code - Close file if necessaryy display error 
y messa:ae and exit 

ERRi: FCSERR #FDBy<ERROR OPENING FILE> 
ERR2D: DIRERR -^DIRECTiyE ERROR ON READ> 
ERR2I: CNPB #IE*EOFyIOST y Is it '^Z? 

BEQ EXIT y If eaualy close file 

y and exit 

lOERR #IOSTy<ERROR ON READ> ? Display error 

y message and exit 
ERR3: CLOSE$ #FDBrERR4 y Close file 

FCSERR #FDBy<ERROR WRITING RECORD.:- 
ERR4: FCSERR #FDBy<ERROR CLOSING FILE> 

♦END START 
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1 
X 

o 


p 


rhUuKMn UKfc.bfc:.U • LKtH 1 fc. riLt btUUtN 1 1 mLL T 




1^ 


F-'TI P 1 FVIAI FTW 
rxi_E_ L.in.Aj.\/j.»rir» 


4 


r 






r 


mJi_iJ.iJ.criJ UIJ r'ltJt.tftjc? crot-ll Ifc?v-U|Q wXl/ii HMHH .'.MX A 


6 


C 




7 


C 




8 


c 


V3 r i 3fc) 1 ©~ 1 ©n^'th recorcfs usins^ s©Querrbi<3l record scce? 


9 


c 


The records 3 r e .i. n p u t "P r o iti t hve "t e riri i i"i 3 1 3 r'l d c o F' i e d "b i 


10 


c 


"the 'Tile* The process stops when t,he oper3t,or 'types 


11 


c 


CTRL/Z at the terminsl* 


12 


c 




13 




BYTE BUFF<84) y 1NBUF(80) ! ! EX 


14 




EQUIVALENCE ( BUFF ( 5 ) y INBUF ( 1 ) ) ! ! EX 


15 




INTEGER LEN 


16 




DATA BUFF( 1 ) yBUFF(2) yBUFF<3) yBUFF(4) 


17 




1 /'A'y'A'y'A'y'AV 


18 


c 




19 


c 




20 


c 


OPEN FILE 


21 


c 




'?t> 


c 


Def3ult. 3ccess is seauentis.! 


23 


c 


Def3ult is formatted I/O for seauential files 


24 


c 




25 




OPEN (UNIT=^-1 yNAME^='UARI ♦ASC yTYPE=::'NEW' y 


26 




1 CARRIAGECONTROL=='LIST' ) 


27 


c 




28 




TYPE *y 'TYPE IN TEXTy TERMINATE EACH RECORD 


29 




1 WITH A CARRIAGE RETURN' 


30 




TYPE *y 'TERMINATE INPUT WITH A CTRL/Z' 


31 


c 


Loop 


32 


10 


READ <5yllyEND-=100) LEN y INBUF ! Read record! 


33 


11 


FORMAT (QyOOAl) 


34 


c 




35 




LEN ■= LEN+4 ! Add 4 for A'< 


36 


c 


1 


37 




WRITE (lyl2) (BUFF(I) yI-=lyLEN) ! Write record 


38 


12 


FORMAT (80A1) ! to file 


39 




GO TO 10 


40 


c 


Close file snd exit 


41 


100 CLOSE (UNIT=1) 


42 




CALL EXIT 


43 




END 
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SOLUTION 



2. 



6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 

21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 



♦TITLE 
♦I DENT 
♦ ENABL 



LEX102 

/Ol/ 

LC 



f En3ble lower case 



File LEX102,MAC 



LEX102 appends records to the end of the file 
TEST»FILy Setting the input from Ti:» TEST*FIL 
contains variable length records and can be 
created usind the editor* A '"Z terminates input 
and closes the file* 



♦ MCALL EXST*C y QIOW*C y QIOW$ f DIR* 



iost: 
print: 
buff: 
obuff: 

arg: 



♦NCALL 
♦MCALL 
♦MCALL 

♦NLIST 

♦ BLKW 
QIOW$ 

♦ BLKB 

♦ BLKB 

♦ BLKW 



EFDQIO: ♦ASCIZ 
EFIQIO: ♦ASCIZ 

efcdir: .ASCIZ 
efcsio: .asciz 

♦ even 

♦ LIST 



FSRSZ* f FDBDF* r NMBLK* 
FriRC*A f FriAT*A > FDOF-'*A 
OPEN$A , PUT* 9 CLOSE* 

BEX ? Suppress ASCII 

2 ; QIO status block 

10 ♦ WVB 9'5ylrf9f <OBUFF r y 40> 
80 ♦ y User record buffer 

80 ♦ y Output buffer for 

y error messages 
1 y Ar:3ument block for 

y *EDMSG 

/DIRECTIVE ERROR ON QIO. ERROR CODE = %D./ 
?I/0 ERROR ON QIO^ ERROR CODE = %D.? 
/FCS DIRECTIVE ERROR. ERROR CODE = %D./ 
?FCS I/O ERROR CODE. ERROR CODE %D.? 



FDD : 



file: 



FSRSZ$ 

FDBDF* 
FDRC*A 
FDOP$A 
NMBLK* 



BEX 



y BUFF r 80. 
Ir yFILE 
TESTyFIL 



♦ENABL LSB 



start: 0PEN*A #FDB? y y y y tERRI 



10*: 



20*: 



MOV 
MOV 
MOVB 
SOB 



*80^ yRl 
#BUFFyR2 
#' y(R2)+ 
Rly20* 



y Show offsets 

y 1 file for record I/O 

y File descriptor block 

y User buffer and size 

y use LUN 1 

y TEST^FIL 



OPEN for append? if 
open failsy CALL ERRl 

Size of URB 

Addr of URB 

Blank fill recorrj 
so no ^arbasfe fill 
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■=■.1 




U J. U W L/ 




m .•"Til tCrC* - OA 2 C"« "»rl -» 










J.XIIC7 1 fWlll IX^ 


53 




BCC 


DIROK » 


Ft ;a r*! r* n ri Tl *! t* "i n 1/ 
Ju* 1 o 1 1 1- 1 I 1 1 A>* X 1 w I., w X V cr w r*. 


54 




MOV/ 


*FFT0Tn»R1 * 


IIP/ "Prir APriM^^f-i 

w Irf ImI r 1 1 •P Iw !*■ 1 1 w 


c* cr 

%J %J 




MOM 










RR' 
x?r\ 


onucrvrv f 


XjIoi1L.iI UU =>iIUW trIIUI 


57 








O 1 1 (.J C7 /*\ X w 


58 




TSTB 


lOST f 


wllwl«r*. lUI X/W CTIIUI 


59 




BGT 


OKIO y 


Rr;3nnh if T/fl nk 

JL'IwIIImII XI X/W wr** 


60 




CMPB 


♦lE.EOFylOST r 


Check for EOF 


61 




BEQ 


EXIT r 


If EQy close and exit 


62 




MOVB 


lOSTrRO J 


I/O status is si^n 


63 








extended snd F' laced 


64 








in argument block 


65 




MOV 


ROrARG f 


for *EDMSG call 


66 




MOV 


*ARGrR2 f 


Set UP for *EDMSG call 


67 




Mog 


♦EFDQIOs'Rl ? 




68 




BR 


SHOERR ? 


Branch to show error 


69 








and exit 


70 


OKio: 


MOV 


I0ST+2>R1 ? 


Length of record to Rl 


71 




PUT* 


♦FDB» rRlrERR2 r 


Write next record 


72 




BR 


10* ; 


Get next record 


73 










74 


exit: 


CLOSE* 


*FDB y 


Close file 


75 




BCS 


ERR3 ; 


Branch on FCS error 


76 




EXST$C 


EX*SUC " ? 


Exit with status of 1 


77 










78 


f Error 


Processing 




79 


ERRi: 








80 


ERR2 : 








81 


ERR3 i 


TSTB 


F»ERR+1<R0) ? 


Directive error or I/O 


82 








error 


83 




BEQ 


10 ? 


Branch on I/O error 


84 




MOV 


♦EFCDIRrRl ? 


Set UP for *EDMSGy 


85 








directive error 


86 




BR 


FINSET 5 


Branch to finish setup 


87 


lo: 


MOV 


#EFCSIOfRl f 


Set UP for *EDMSGy I/O 


88 








error 


89 


finset: 


MOVB 


F.ERR<R0)yR0 ? 


FCS error code 


90 




MOV 


RO»ARG f 


is si^n extended and 


91 




MOV 


*ARGfR2 y 


placed in arsi block 


92 








*EriMSG a r. humeri t block 


93 


SHOERR : 


MOV 


#OBUFFyRO ? 


Output buffer 


94 




CALL 


*EDMSG y 


Format error messasle 


95 




MOV 


Rl rPRINT+Q»I0PL+2 


y Size of message 


96 




DIR$ 


♦PRINT ? 


Print error inessasSe 


97 




CLOSE* 


*FDB y* 


Close file 


98 




EXST*C 


EX*ERR y 


Exit with status of 2 


99 




♦ END 


START 
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1 PROGRAM LEX 102 

2 C 

3 C FILE LEX102»FTN 

4 c: 

5 C This task appends records to the file TE£)T»FIL» 

6 C The records are input from the terminal and copied to 

7 C the file* The process stops when the operator twpes 

8 C CTRL/Z at the terminal* 

9 C TEST*FIL contains variable length records and can 

10 C be created usin^ the editor* 

11 C 

12 BYTE BUFF (80) 

13 INTEGER LEN 

14 C 

15 C 

16 C OPEN FILE 

17 C 

18 C Default access is seeuential 

19 C Default is formatted I/O for seouential files 



20 C 

21 OPEN (UNIT:=lyNAME:-=-"TEST*FIL' mTYPE^'OLD' r 

22 1 CARRIA6EC0NTR0L^=-= ' LIST ' vACCESS--=' APPEND ' ) 

23 C 

24 TYPE *f'TYPE IN TEXT^ TERMINATE EACH RECORD 

25 1 WITH A CARRIAGE RETURN' 

26 TYPE 'TERMINATE INPUT WITH A CTRL/Z' 

27 C Loop 

28 10 READ (5yllrEND=100) LEN r BUFF ! Read record 

29 11 FORMAT (QrOOAl) 

30 C 

31 WRITE (in.2) (BUFF( I) y 1 = 1 »LEN) ! Write record 

32 12 FORMAT (80A1) ! to file 

33 GO TO 10 

34 C Close file and exit 

35 100 CLOSE (UNIT=:1) 

36 CALL EXIT 

37 END 
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SOLUTION 



3. 



1 




♦TITLE 


p 




♦I DENT 


3 




♦ENABL 


4 


J + 




5 


f File 


LEX103, 


6 






7 


r Modified to 


8 


r iriF'ut 


from T 


9 






10 


r CREFXA opens 


11 


r from 


Ti: and 


12 




teriTriri3 


13 


f~ 




14 






15 




♦MCALL 


16 






17 




♦MCALL 


18 




♦MCALL 


19 




♦MCALL 


20 




♦MCALL 


21 






'.■>'? 




♦NLIST 


23 


RSIZ 


= 30* 


24 


lOSTJ 


♦ BLKW 


25 


print: 


QIOW* 


26 


BUFF" J 


♦ BLKB 


27 


obuff: 


♦ BLKB 


28 






29 


arg: 


♦ BLKW 


30 






31 


EFDQIO: 


♦ ASCIZ 


32 


EFIQIOJ 


♦ASCIZ 


33 


efcdir: 


♦ASCIZ 


34 


EFCSIOJ 


♦ASCIZ 


35 






36 




♦ E'^EN 


37 




♦ LIST 


38 






39 




FSRSZ* 


40 


r 




41 






42 


fdb : 


FDBDF$ 


43 




FriRC*A 


44 




FDAT*A 


45 






46 




FDOP*A 


47 


file: 


NMBLK* 



CREFXA 

/Ol/ 

LC 



5 Ensble lower C3se 



EX 



EXST$C»QIOW$CyQIOW*rriIR* 

FSRSZ* y FUBBF* T NMBLK* 
FDRC*A y FDAT$A y FDOP$A 
OPEN*W 9 GET* f PUT* r CLOSE* 
OPEN*R 



BEX 



lO^WVByS! 

RSIZ 

80* 



/DIRECT I k;E 
?I/0 ERROR 
/FCS DIRECTIVE 
?FCS I/O ERROR 



BEX 



r Suppress ASCII 
» Record si2:e (bytes) 
r QIO status block 
y y y <OBUFFrOy40> 
y User record buffer 
y Output buffer for 
y error messages 
y ArduiTient block for 
? *EriMSG 
ERROR ON QIO» ERROR CODE %D*/ 
ON QIO. ERROR CODE = %D.? 

ERROR ♦ ERROR CODE 'AH*/ 
CODE* ERROR CODE = %D^? 



y Show offsets 

y 2 files for record I/O 
? yEX 

y File descriptor block 
User buffer and size 



y BUFF y RSIZ 

R^FIXyFD^CRyRSIZ ? Fixed length recordsy 

y implied < C R > < L F > 
ly yFILE r use LUN 1 

FIXEDyASC * FIXED ♦ASC 
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49 
50 
51 
52 
53 
54 
55 
56 
57 
58 
59 

60 
61 

63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 

90 
91 
92 
93 
94 
95 
96 



J FDB for Ti: 
FDBIJ FDBDF* 



DSPTi: 



10$: 
20$: 



FriRC*A » BUFF » 30* 

FDAT*A R»VAR>FEUCR 
FriOP*A 2 r DSPTI 



♦ WORD 

♦ WORD 

. WORD 



LDEVyDEV 
OrO 



♦ASCII /Ti:/ 
LDEV=:»-DEV 
♦ EVEN 

♦ENABL LSB 



start: 0PEN*W #FDBt ^ p ? r »ERR1 
OPEN*R #FDBI»y f f f fERRl 



5 Stsy 

ioerr: 



OKio: 



exit: 



MOM 

MOV 

MOVB 

SOB 

GET* 

BCC 

TSTB 

BNE 

here for 
CMPB 
BEQ 
BR 



PUT$ 
BR 

CLOSE* 
BCS 

CLOSE* 
BCS 

EXST*C 



♦RSIZrRl 
*BUFF»R2 
#' r(R2)+ 
Rl r20* 
#FDBI 
OKIO 

F»ERR+1<R0) 
DIRERR 

I/O error* Check 

#IE*EOFrF*ERR(RO 

EXIT 

10 



#FDBy » »ERR2 
10* 

#FDB 

ERR3 

#FDBI 

ERR4 

EX*SUC 



URB addr and size? 

defaults to 

seauential access 
Fixed leniath records 

implied < C R > < L F > 
Use LUN 2f dataset 

descriptor at DSPTI 
Device 

UIC - not needed for 
Ti: 

File Name - not 
needed for Ti: 
ASCII device 



OPEN? if open failsf 

CALL ERRl 
OPEN "file" on Ti: 

for read 



EX 

EX 

EX 

EX 

EX 

rEX 

EX 

EX 

EX 

EX 

EX 

EX 

rEX 

EX 

EX 

EX 



HEX 
f f EX 



Size of URB 
Addr of URB 
Blank fill record 

so no £{3rbaae fill 
Get record from Ti: 
Branch on GET* ok 
I/O error or 

directive error? 
Branch on directive 
error 
for "Z* 
r Check for EOF 
If EOi- close and ex'i 
It is an I/O error? 

so display error 

messai^e and exit 
Write next record 
Get next record 

Close file 
Branch on PCS error 
Close "file" at Ti: HEX 
Branch on PCS error 
Exit with status of 1 



r i EX 
iEX 
f EX 
?EX 
J EX 
J EX 
fEX 
J EX 
f r EX 
fEX 
rEX 
rEX 
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98 


f Error 


Processing 




99 


ERRl * 








100 


ERR2J 








101 


ERR3 ♦ 








1 02 


V- i"i r*t ♦ 

tRR4 I 






Directive error or I/O 


103 








error 


104 




BEU 


10 r 


Branch on I/O error 


105 


DIRERR* 


MOV 


*EFCniR>Rl ? 


Set UP for $EDMSGy ? ?EX 


106 








directive error 


107 




BR 


FINSET ? 


Branch to finish setup 


108 


10 : 


MOV 


♦EFCSIOyRl ? 


Set UP for $EDMSGy I/O 


109 








error 


110 


finset: 


MOVE 


F,ERR<RO)»RO J 


FCS error code 


111 




MOV 


RO f ARG ; 


is si sin extended and 


112 




MOV 


#ARGyR2 J 


placed in arsi block 


113 








$EDMSG argument block 


114 


SHOERR : 


MOV 


tOBUFFfRO J 


Output buffer 


115 




CALL 


*ErtMSG f 


Format error messaj^e 


116 




MOV 


Rl »PR.INT+Q»I0PL+2 


} Size of inessasle 


117 




DIR* 


♦PRINT f 


Print error message 


118 




CLOSE* 


♦FDB y 


Close file 


119 




CLOSE* 


#FDBI ? 


Close "file" at Ti: ? yEX 


120 




EXST$C 


EX $ ERR ? 


E>;it with status of 2 


121 




♦ END 


START 
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4. 



3 
4 

5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 

28 
'>9 

30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 



♦TITLE 
♦ IDENT 
♦ENABL 



LEX104 

701/ 

LC 



? Enable lower case 



File LEX104»MAC 



This FTO^raiTi opens the file FIXEIuASC and updates 
records in the file usin^ random access* The original 
file was created usinsS CREFXA 



♦MCALL 
♦MCALL 
♦MCALL 

FCSMC$ 



FDBDF* y FDAT$ A J- FriRC$A y FDOP$ A f OF'EN*U 

EXIT$SyQIOU$CyaiOW*yQIOW*SyPUT$R 

CLOSE*yFCSMC$ 

r Get most of the FCG 
9 macros <FCSMC$ has 
y ♦MCALLs for many FCS 
y macros 



♦NLIST BEX 



=30* 

♦ BLKW 
QIOW* 

♦ BLKB 
♦ASCIZ 
. ASCIZ 

♦ BLKB 
♦ASCII 

LEN1=,- 

♦ BLKB 
♦ASCIZ 
♦ASCII 
LCNVER= 
♦ASCII 
LINPT=. 

♦ EVEN 

FSRSZ* 



y FDB for file 



RSIZ 
lOSTJ 

print: 

buff: 

emesd: 

EMESi: 

out: 
buffi : 



errhsg: 
msgerf : 

CNVER : 



inpt: 



y Record size (in bytes) 
2 y I/O status block 

1 ♦ WVB y 5 y 1 y y y y <OUT y y 40> 
RSIZ y user record buffer 

/FCS DIRECTIVE ERROR ♦ CODE == %D^/ 
'FCS I/O ERROR ♦ CODE = %D*' 
100 ♦ y Output messa^Se buffer 

/THAT'S ALL FOLKS!/ y Message on success 

y completion 

■BUFFI 

100^ y Error message buffer 

/directive error y code %d/ 
/conversion error on record number/ 

^♦-CNVER 

/ENTER RECORD NUMBER AND TEXT:/ 
-INPT 



1 file open for record 
I/O 



FDB : 
yFD^INS 



DFNB 



FDBDF$ yFDB 

is needed to keep the EOF mark where it is 

FDRC*A FD ♦ INS ! FD^ RAN y BUFF y RSIZ y Random modey URB 

y addrs and size 
FDOP*A lyyDFNB y Use LUN ly default 

y filename block 
NMBLK* FIXED yASC y Default name FIXED ♦ASC 
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50 
51 
52 
53 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 



♦ENABL LSB 



STARTJ OPEN*U *FBBy y r r f 9ERRI 



Allow local symbols 
to cross Psect 
boundaries 



i Clear 
10$: 

20$ J 



buffer 

MOV 

MOV 

MOVB 

SOB 

QIOW*C 



to all blanks 
*RSIZyRl 
*BUFFyR2 
*' y(R2)+ 
Rl»20* 



Open file for update 
r (includes extend) 
each time 

f Record size 

9 R2 => buffer 

r Move in a blank 

r Continue until done 



Check 



CMPB 
BEQ 
MOV 
CALL 
for i^ood 



returned in 
CMPB 
BEQ 



QIOW*C 

BCS 

BR 

PUT*R 



I0»RPRy5f 1» ylOSTr »<BUFFfRSIZ» yINPTfLINPTf 
r Prompt and ^et input 
f Check for "Z 
f If '"Zf exit 
r Set UP to convert 
r record # to binary 
character after # is 
") 



#IE»EOFf lOST 
EXIT 

#BUFFf RO 

$crrrB 

conversion)' 



Is it a comma 
Branch on stood 



R2 (it should be a 
#' T >'R2 
GOOD 

9 conversion 
10 ♦ WVB 959I9999 <CNVER 9 LCNVER 9 40> 

9 Display error 

ERR4 



Branch 



message 
di recti v€^ 



GOOD J 



9 Close 

exit: 



10$ 

♦FDBy 9 rRly fERR2 



BR 10$ 
filer display message* 
CLOSE$ #FDB»ERR3 
QIOW$C IQ.WB959I9 9 9 9 



BCS 

EXIT$S 



ERR4 



on 

error 
Get next input 
Write record to output 
9 file 

9 Get next input 
and exit 

9 Close file 
::BUFFl»LENly40> J Write 
9 message to operator 
9 Branch on error 



89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 



ERRl : 
ERR2 : 
ERR3: 



ioerr: 



CLOSE$ 

MOVB 

MOV 

MOV 
TSTB 
BEQ 
MOV 

BR 
MOV 



*FDByERR3 
F»ERR(RO) yRO 
ROylOST 

♦I0ST>R2 
F*ERR+1 (RO) 
IOERR 
#EMESDyRl 

COMME 
*EMESI»R1 



Close file 

Move PCS error code 

to argument block 

for $EDMSG 
Set UP for $EDMSG 
I/O or directive error 
Branch on I/O error 
Set UP for dir error 

message 
Branch to common code 
Set UP for I/O error 

message 



137 



File Control Services 
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102 COMMEJ MOV #OUT>RO r Set up for $EDMSG 

103 CALL $EDMSG r Edit error inessade 

104 MOV Rl fPRINT+Q*I0PL+2 ? Length of error 

105 ? messaiSe 

106 DIR* tPRINT r Display error inessasie 

107 EXIT$S f EXIT 
108 

109 r Here for directive error on QIO 

110 ERR4: MOV #ERRMSGyR0 ? Set up for *EDMSG 

111 MOV *MSGERFfRl ? 

112 MOV ♦$DSWrR2 ? 

113 CALL *EDMSG r Edit message 

114 aiOW$S #I0»WVB>#5r#l, > y y <#ERRMSG)'Rlr*40> 
115 y Display messa^Se 

116 EXIT*S f Exit 

117 .END START 

1 PROGRAM LEX 104 

2 C 

3 C File LEX104tFTN 

4 C 

5 C This tasM. updates records in the file FIXED»ASC usina 

6 C direct access formatted writes* The original file was 

7 C created usinsi CREFXA* 

8 C 

9 C Direct access formatted writes are available in 

10 C FORTRAN IV~PLUS and FORTRAN-77 only 

11 C 

12 BYTE REC (30) 

13 C 

14 C Open file 

15 OPEN (UNIT=2yNAME='FrXED*ASC' yACCESS--='DIRECT' y 

16 1 TYPE== ' OLD ' yFORM=' FORMATTED ' ) 

17 C Place blanks in buffer 

18 10 DO 15 J=:ly30 

19 REC<J)=' ' 

20 15 CONTINUE 

21 C Read record from terminal 

22 WRITE <5y20) 

23 20 FORMAT ('CENTER RECORD NUMBER AND TEXT: ') 

24 READ <5y50yEND=--=900) REC 

25 50 FORMAT (64A1) 

26 C Convert record number to irite*3er format 

27 DECODE (2 y 60 y REC) NREC 

28 60 FORMAT (12) 

29 C Write record to disk 

30 WRITE (2'NRECy80) REC 

31 80 FORMAT (30A1) 

32 100 GOTO 10 

33 C '"Z inputy close file and exit 

34 900 CLOSE (UNIT=2) 

35 CALL EXIT 

36 END 
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File Control Services 



SOLUTION 



5. 



6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 



♦TITLE BL0CK2 
♦IDENT /Ol/ 

♦ENABL LC r Enable lower esse 

File LEX105»MAC ??EX 

Modified to work on 2 virtual blocks at a time JJEX 

**-BL0CK2 F-roiriF'ts at TI* for a virtual block number 
and then reads and displays that block of "BLOCK tASC" 



♦MCALL QIOW*rDIR$fQIOW*S»EXST$S 

♦ MCALL FDBDF* f FDRC^A y FDBKtA r FDOP$ A y NMBLK* 

♦ ^fCALL FSRSZ* r OPEN*R f READ* >- WA I T$ f CLOSE* 



CR 
LF 

MESi: 
LENl 
MES2: 
i 

LEN2 
MES3I; 
MES3D: 
MES4I: 

MES4ri: 

MESSi: 
MES5D: 

buff: 



FDBJ 



file: 

VBNJ 

block: 
iosb: 



SBTTL 
NLIST 

= 15 

= 12 
ASCII 



MESSAGES 
BEX 



/FIRST VIRTUAL BLOCK: / 
♦ - MESI 

ASCII <CR><LF>/HERE ARE THE BLOCKS 



? ;ex 

/<CR><LF> 



-- * - MES2 

ASCIZ 'I/O ERROR 

ASCIZ /DIRECTIVE 

ASCIZ M/O ERROR 

ASCIZ /DIRECTIVE 

ASCIZ 'I/O ERROR 

ASCIZ /DIRECTIVE 

BLKB 80* 



FROM OPEN*Rf CODE = %D»' 
ERROR FROM OPEN$Rf CODE == "/.H*/ 
FROM READ*» CODE = %D»' 
ERROR FROM READ*r CODE ~ %D»/ 
FROM WAIT*? CODE = %D*' 
ERROR FROM WAIT$y CODE = %D»/ 
J STORE RESPONSE HERE 



♦ LIST 

♦ EVEN 
♦SBTTL 



BEX 



.OCAL STORAGE 



FSRSZ* 



NO FSR BUFFER NEEDED 
FOR BLOCK I/O 



FDBDF* 
FDRC*A 
FDBK*A 

FDOP*A 
NMBLK* 

♦ WORD 

♦ BLKW 

♦ BLKW 



? FDD FOR INPUT FILE 
FD^RWM ? READ/WRITE MODE 

BLOCK* 1024^ y rlylOSB ? EF 1 » BUFFER ADRfJrEX 

f SIZE 

IrfFILE f LUN 1* DFNB 

BLOCK >ASC $ NAME IS BLOCK ♦ASC 



0,1 
512* 



DEFAULT VBN 
BLOCK BUFFER 



r r EX 
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51 
52 
53 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
9*? 

93 
94 
95 
96 
97 
98 
99 
100 



prompt: qiow* 
done: qiow$ 



DUMP : 



start: 



10 ♦ RPR y 'Stiff lOSB f f <BUFF f6ff MESl y LENl f ' $> 

f Prompt and Set ♦ 
I0,UVBr5fly»»»<MES2yLEN2r40> ? Done 

f message 

I0»WVBf5yl r > » y<0!'64» r40> ? Displaw of VB 



QIOW* 

♦SBTTL MAINLINE CODE 



OPEN*R *FDB ffffff ERRl 

DIR* *PROMPT 

MOV I0SB+2yR0 

CLRB BUFF<RO) 

MOV #BUFFyRO 

CALL *COTB 

MOV Rl»VBN+2 
READ* 
WAIT* 
DIR* 



f Open file 
? Ask for 3 VBN 
f Put null at end 
f of disJit string 
J RO => VBN 
f Convert to binary 
f Store as low VBN 
♦FriBf y y^VBNj > » yERR2 r Read in the block 
j'fj'ERR3 f Wait until done 

♦DONE f Tell them I/O is done 



f Now dump 16* lines of 64* characters each 



?EX 



1*: 



MOV #BLOCKyRO 

MOV #16.rRl 

MOV RO»DUMP+Q,IOPL 

DIR* #DUMP 

ADD #64»yR0 

SOB Rlyl* 



f RO => 1st line to dump 

J ♦ of lines to dump ?5EX 

? Addr of current line 

f Dump it 

r Point at next line 

f Dump all 8* lines 



r Now we exit with status 



EX*SUC 



MOV 
BR 



*EX*SUCyR; 
EXIT 



♦SBTTL ERROR ROUTINES 



ERRl : 

TSTB 
BEQ 
MOV 
BR 

lOERRi: MOV 
BR 

TSTB 
BEQ 
MOV 
BR 



ERR2: 



F»ERR+1(R0) 

lOERRl 

*MES3DyRl 

FCSERR 

#MES3IyRl 

FCSERR 

F^ERR+l (RO) 
I0ERR2 
♦MES4D).R1 
FCSERR 



r Put status in R5 
f And then exit 



I/O or directive error? 
Branch on I/O error 
=> Dir error message 3 
Branch to common code 
=•-■> I/O error messafie 3 
Branch to common code 

I/O or directive error? 
Branch on I/O error 
==> Dir error message 4 
Branch to common code 
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101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 



I0ERR2: 



ERR3: 



I0ERR3: 



fcserr: 



format: 



exit: 



MOV *MES4IrRl 

BR FCSERR 

TSTB F^ERR+KRO) 

BEO I0ERR3 

MOV #MES5riyRl 

BR FCSERR 

MOV #MES5IrRl 



MOVB F»ERR(R0)yR2 

MOV R2»I0SB 

MOV #EX$ERRyR5 

MOV #I0SByR2 

MOV *BUFFrRO 

CALL $EDMSG 

QIOW*S tlO.WVBytSy*!? J- » 



CLOSE* *FnB 
EXST$S R5 
♦END START 



=> I/O error messas^e 4 
Branch to common code 

I/O or directive error 
Branch on I/O error 
=> Dir error message 5 
Branch to common code 
~> I/O error mesisa<Se 5 
FALL INTO COMMON CODE 

Sis^n extend error code 

and move into lOSB 
Exit status in R5 

Set UP for *EDMSG 



:*BUFFyRly#40> 

messBif^e 



r Display 



Close the file 
Exit with status 
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3 

4 

5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18' 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 



♦TITLE CSI 
♦ iriENT /Ol/ 

♦ENABL LC r Enable lower case 

File LEX106*MAC 

Modified to actually delete or display the file ?5EX 

CSI illustrates the use of the command strinsS 
interpreter* This task accepts a command line from the 
terminal in the form* 

dev* Txyy^f i lename ff i letype r version/switch 



where switch can be? 



TYPEl X 
TYPE2 : 
TYPE3: 
TYPE4 : 
EFi:Rl : 

ERR2 X 

ERR3: 

BUFF : 

tbuff: 

fmt: 

fmterd; 

FMTERi: 

data: 

deltxt: 

ihtxt: 

notxt: 

cltxt: 



DE - Delete file 

DUN ~ Display N copies of file 



♦MCALL 
♦MCALL 

♦ MCALL. 
♦MCALL 
♦MCALL 

♦NLIST 
LOCAL 
QIOW* 
QIOU« 

aiow* 

QIOW* 

♦ASCII 

& I Zl ™ ♦ 

♦ASCII 

SIZ2=, 

♦ASCII 

S I Z3— ♦ 

♦ BLKB 

♦ BLKB 
♦ASCIZ 
♦ASCII 
♦ASCIZ 
♦ASCIZ 

♦ EVEN 

♦ BLKW 
♦ASCII 
♦ASCII 
♦ASCII 
♦ASCII 

♦ EVEN 



GCMLB$»6CML*yCSI*»CSI*l»CSI*2 
CSI$SV»CSI*SWyCSI$ND 
FSRSZ* f FDBDF* , FDRC*A f FDOP*A y FIN IT* 
aiOW*SyQIOW*?DIR$yEXIT*S 
DELET$ y OPEN*R * OPEN*W f GET* » PUT* » CLOSE* 

BEX 
DATA 

1 ♦ W VB f^flffff <ERR IfSllXf 40> 
10 ♦ WVB » 5 » 1 » » y y <ERR2 y SIZ2 y 40> 
1 ♦ W VB y 5 y 1 y y y y <ERR3 y S I Z3 y 40> 
10 ♦ WVB y 5 y 1 y y y y <BUFF y y 40> y * EX 

/GET COMMAND LINE ERROR/ 



-ERRl 

/CSI 
-ERR2 

/CSI 
^ERR3 

100^ 

/YOU 
/FCS 

/ CODE = 
?FCS I/O 



ERROR ♦ ILLEGAL COMMAND/ 
ERROR ♦ FILE SPEC ERROR/ 

y Output text buff 
y Transfer buffer 
HAVE REQUESTED A %7Pi JOB/ 
DIRECTIVE ERROR ON X7A^/ 
%D ♦ / 

ERROR ON X7A* CODE =-■ %D^? 



er 



/DELETE/<0> 
/DISPLAY/ 
/NOTHING/ 
/CLOSE/<0><0> 



y Argument block 
y* ASCII text 



y For close 



y y EX 
y y EX 
y y EX 

y yEX 



y y EX 
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52 
53 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 



cblk: 



swtbl: 



CSI* 

♦ BLKB 

♦ EVEN 



C * S I ZE 



Define CSI offsets 
allocate CSI storage 



DEMSK = 1 f Delete mask 

DIMSK =2 r Display mask 

r Switch descriptor table 
f Delete switch = DE 
DI ^DIMSKr f r »NUM 5 Display switch = Dlr 
? also allow DUN 
r End of switch table 



CSI*SW DE» DEMSK 
CSI*SW 

CSI*ND 



CSI$SV 0CTALyC0PYr2»NUM? Value N for /DUN is 

r in octal and will 
r be stored in COPY 

CSI*ND r End of switch value 

r table 

?GET COMMAND LINE BLOCK DEFINITIONS 



gblk: 
fdb: 



FSRSZ$ 
GCMLB* 
FDBDF* 
FDRC*A 
FDOP*A 



f CSI r j'5 

rTBUFF»132* 
1»CBLK+C»DSDS 



r GCML uses record I/O? f EX 

r Prompt with 'CSI' on 

f LUN 5 

r FDB for file to delete 

r or display* 

i URB AT TBUFFf lenslth 

? 132* 

f LUN If dataset 

i descriptor from CSI 



f note: Need a 2nd FDB for display 



FDBO : 



FDBDF* 

FDAT$A R»VAR»FD»CR 

FDRC*A »TBUFFrl32» 

FDOP$A 2»DSPT0 



DSPTOJ 



DEV: 



♦ WORD 
. WORD 

♦ WORD 



LDEVfDEV 
Of 
OfO 



♦ASCII /Jit/ 
LDEV=*-DEV 



FDB for output to TI 
Var length records^ 

list format 
URB at TBUFFf len«3th 

132^ 
LUN 2r dataset 
descriptor at DSPTO 
Dataset descriptor 

for Ti:^ No UIC or 

name needed ♦ 



? f EX 

?EX 

?EX 

?EX 

fEX 

?EX 

?EX 

JEX 

fEX 

?EX 

fEX 

?EX 



♦ EVEN 

jmptbl: ♦word 



COPY! 



♦ WORD 



NONE f DELETE fDISPLY f Jump table for 

f subroutines depending 
f on switches 

1 f Value for N in /DUN 
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101 ♦ENABLE LSB 

102 

103 start: FINIT* ? initialise FCS, this 

104 r is normally done with 

105 r an OPEN statement* 

106 J For delete we do not 

107 r need an open statement* 

108 next: GCML* #GBLK f Prompt and ^et command 

109 BCC 10* ? Bran/„'h if command OK 

110 y Check for '"Z. If '^Zf exit* 

111 CMPB #GE*EOF?GBLK+G*ERR J Is it "'Z? 

112 BNE REALER f Branch on other error 

113 EXIT*S ? Exit 

114 REALER: DIR* #TYPE1 ? Display error text for 

115 f ^et command line error 

116 EXIT$S ? Exit 

117 y Parse input for illegal characters 

118 10$: CSI$1 *CBLK»GBLK+G*CMLD+2^GBLK+G*CMLD J Format 

119 J is CSI addrj- addr of 

120 r command? lensJth of 

121 y command 

122 BCC 20$ y Branch on OK command 

123 BIR$ *TYPE2 y Display error text for 

124 y illegal command 

125 EXIT$S y Exit 
126 

127 y Create a dataset descriptor from the file specification 
128 

129 20$: CSI$2 *CBLKy OUTPUT r#SWTBL ? Expect output file 

130 f spec 

131 BCC 30$ y Branch on file spec OK 

132 DIR$ #TYPE3 y Display text for file 

133 y spec error 

134 EXIT$S y Exit 
135 

136 y Call the appropriate subroutine 
137 

138 30$: MOV #FDByRO i Address of file 

139 y descriptor 

140 MOV CBLK+C*MKWlyRl $ Mask value = Or Ir or 2 

141 y 

142 ASL Rl y Double for word offset 

143 y into Jump table 

144 CALL @JMPTBL<R1) 5 Call the subroutine 

145 BR NEXT f Get next command line 
146 

147 y Subroutine NONE? entered if no switches specified 
148 

149 none: MOV *NOTXTyDATA ? Set up for output of 

150 y message 



144 



File Control Services 



SOLUTION 



151 




CALL 


OUTMS 


? 


Call OUTMS f as a 


? ?EX 


152 








? 


subroutine 


? yEX 


153 




RETURN 




? 


Return 


? ? EX 


154 














155 


r Common display message code - 


3 


subroutine since it 


? ? EX 


156 


? is not 


3 common return point 






? ?EX 


157 














158 


OUTMS: 


MOV 


#BUFF »R0 


? 


Set UP for $EDMSG 




159 




MOV 


*FMTf Rl 


» 






X OU 




MOV 


*DATArR2 








161 




CALL 


*EDMSG 


? 


Edit message 




162 




QIOW*S 


*I0» WVBf #5y*l r » 




♦BUFF y R 1 y *40> y D i sp 1 ay 


16t3 




RETURN 




? 


Return 




164 














1 65 


% Subroutine DELETE 








1 66 














16/ 


J ***WARNING - 


THE HIGHEST VERSIOhJ 


NUMBER OF THE FILE 


*** 


168 


J ***W1LL BE DELETED IF NO <v^ERS 


ION 


NUMBER IS SPECIFIED 


*** 


169 














170 


delete: 


MOV 


*DELTXT?DATA 




Set UP for output of 




171 










message 




1 / jiC 




CALL 


OUTMS 




Call displcjy 


? ?EX 


1 /o 










subroutine 


? ? EX 


1 /4 




DELET* 


#FDBfERRD 




Delete file 


? ?EX 


J. / vJ 




RETURN 






Return 




1 /o 


f Delete error 


code 








1 // 


ERRD : 


MOVB 


F»ERR(RO) yR5 




Extend sisin on error? JEX 


1 /o 




MOV 


R5yDATA+2 




and move to ar«S block?? 


1 /9 




MOV 


#DELTXTrDATA 




Move pointer to delete?? 


180 










text 


? ?EX 


lol 


COMMEJ 


TSTB 


F,ERR+1(R0) 




Check for directive 


? ?EX 


182 










error or I/O error 


? ? EX 


183 




BEQ 


IOERR 




Brsnch on I/O error 


? ?EX 


184 




MOV 


#FMTERDf Rl 




Get format strinsi 


? ?EX 


185 




BR 


DISPER 




Br3nch to common 


? ? EX 


186 










error display code 


? ? EX 


187 


ioerr: 


MOV 


♦FMTERIfRl 




Get format string 


? ? EX 


188 


disper: 


MOV 


#BUFFf RO 




Set UP for *EDMSG 


? ?EX 


189 




MOV 


#DATA»R2 






? ?EX 


190 




CALL 


$EDMSG 




Edit messa.de 


? ?EX 


191 




MOV 


Rl»TYPE4+Q,I0PL+2 


? Si:-re of message 


? ?EX 


192 




DIR* 


#TYPE4 




Display message 


? ?EX 


193 




EXIT$S 






Exit 


? ?EX 


194 














195 


r Subroutine DISF'LY ~ Just display 


a messa<3e 




196 














197 


disply: 


CALL 


*SAVAL 




Save all re.disters 




198 




MOV 


♦DITXTyDATA 


J 


Set UP for output of 




199 










message 




200 




CALL 


OUTMS 




Branch to common 




201 








? 


display code 
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202 
203 
204 
205 
206 
207 
208 
209 
210 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
228 
229 
230 
231 
232 
233 
234 
235 
236 
237 
238 
239 
240 
241 
242 
243 
244 
245 
246 
247 
248 
>249 
250 



OPEN$R ♦FDB frrrff ERRE 

OPEN*W ♦FDBO 9fffff ERRE 

MOV C0PY»R4 

MOV #FriB»RO 

CALL ♦ MARK 



BCS 
GET* 
BCS 



GET? 

t St3W here if OK aet 



ERRE 
♦FDB 

CHECK 



r Open file for input 

f Open TI* for output 

r Number of copies to 
J R4 

r Addr of FDB of input 
r file 

r Save pointers to 
y first record for 
r resetting* Pointers 
r are returned in Rli* 
r R2»R3 

i Branch on error 

r Get record from file 

i Branch on error 
output record to TI* 



MOV F»NRBD<RO) fFDBO+F»NRBD ? Move lenfJth of 

y record to FDBO 
f Display rcjcord at TI* 
f Get next record 



#FDBOf r rERRE 
GET 



r Erro 

check: 



r More 
9 file 

again: 

f Here 
ERRE : 



PUT* 
BR 
' code 
CMPB 
BNE 
DEC 
BNE 
MOV 

CLOSE* 

CLOSE* 

RETURN 
copies to do 
and repeat 

CALL ♦POINT 

BCC GET 
for errors on PUT*sj' GET* 



♦IE»EOF»F,ERR(RO) 

ERRE f 

R4 ? 

AGAIN f 

♦l^COPY J 

♦FDByERRC f 

♦FDBOfERRC ? 



r Check for EOF 
Branch if not 
Decrement copy counter 
Branch if more to do 
Reset number of copies 
Close file 
Close Ti: 



MOVB 

MOV 

MOV 

CLOSE* 
CLOSE* 
BR 



F»ERR<RO) »R5 

R5rDATA+2 

#DITXT>DATA 

♦FDBrERRC 

♦FDBOyERRC 

COMME 



reset pointers to start of input 



R1>R2)'R3 are still set 
Display next copy 
f and ♦POINTS 
Extend si an and move 

error code to DATA 
Move display function 

for display 
Close files 



r Here 
ERRC: 



for errors on close 
MOVB F^ERR(R0)rR5 
MOV R5yDATA+2 
MOV *CLTXTyDATA 

JHP COMME 

♦END START 



Branch to common error 
code 

Extend si an and move 
error code to DATA 

Move close text for 
display 

Jump to common error 
code 
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